1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. sc4ry

Beiträge von sc4ry

  • Frage zu SplashTextOn und "Pause-Funktion"

    • sc4ry
    • 16. Oktober 2008 um 10:42

    ah, habs ...was es nicht alles gibt +g*

    Opt("TrayAutoPause",0) bewirkt genau das.

    so, jetzt ist noch die frage zu SplashTextOn offen, ob man da Farben verändern kann ;)

    bzw hätte noch ne Frage, wie kann ich folgendes pausieren?

    [autoit]

    Do
    $diff = TimerDiff($begin)
    ControlSetText($handle, "", "[CLASS:Static; INSTANCE:1]", StringFormat($head & @CRLF & "at: " & $H & ":" & $M & @CRLF & "in: " & Round(($Countdown * 1000 - $diff) / 1000) & " seconds"))
    Sleep(100)
    Until $diff >= $Countdown * 1000

    [/autoit]

    hab quasi nen timer laufen ... drücke ich nun auf pause, bleibt die anzeige stehen, drücke ich fortführen, springt der timer weiter ... hat also während der pause weiter getimert ;)

    ich hoffe ihr versteht was ich meine ;)

  • Frage zu SplashTextOn und "Pause-Funktion"

    • sc4ry
    • 16. Oktober 2008 um 10:06

    hmm, irgendwie komme ich nicht weiter ...

    aber immerhin bin ich dadruch wieder auf ne idee gekommen.
    ich kann ja ;~ Opt("TrayMenuMode", 1) aus meinem script entfernen,
    dann habe ich pause und exit standardmäßig durch autoit im traymenü.

    ABER jetzt pausiert das script natürlich direkt, wenn man nur das icon
    anklickt. wie kann man das abstellen? das script soll nur pausieren, wenn
    man das aus dem tray-menü anwählt?

  • Frage zu SplashTextOn und "Pause-Funktion"

    • sc4ry
    • 16. Oktober 2008 um 09:28

    dank dir für die antwort.
    also ich arbeite im TrayOnEventMode = 1

    An Do Until habe ich schon gedacht, aber an der Umsetzung harpert es (trotz deinem Vorschlags) immernoch =/

  • Frage zu SplashTextOn und "Pause-Funktion"

    • sc4ry
    • 16. Oktober 2008 um 09:11

    Hallo zusammen,

    hab mal wieder einige Fragen.

    1. Frage:

    Als erstes nutze ich in einem Script "SplashTextOn", weil das einfacher ist, als selber ein GUI zu basteln.
    Jetzt meine Frage, kann man da irgendwie andere Farben auswählen (Hintergrund und Text)?
    Mit den Gui-Color-Funktionen bewirke ich anscheinend keine Änderung.

    2. Frage:

    Ich würde gerne, dass man mein Script pausieren kann, das ganze über das Traymenü. Das geht ja standardmäßig
    bei alles Scripten, ich habe jedoch ein eigenes Tray-Menü erstellt und müsste da jetzt diese Pause-Funktion manuell
    erstellen. Aber wie mache ich das?

  • Hilfe bei Funscript

    • sc4ry
    • 15. Oktober 2008 um 17:26

    Hiho,

    wollte mal ein kleines Funscript schreiben, was folgendes macht (wenn es das schon gibt, auch net schlimm, dann nehm ich nen link dazu *g*)

    Screen von Desktop machen
    als Hintergrund setzen
    Desktop-Icons ausblenden

    Das war es eigentlich schon.

    Was blöd ist, der Screen vom Desktop darf die Taskleiste nicht enthalten, da ansonsten die taskleiste auf dem bild über der richtigen taskleiste erscheint (was blöd und auffällig ist).

    also müsste man den screen beschneiden oder die taskleiste vorher aus- und wieder einblenden.

    ich bin auch, wg dem prob, noch nicht sonderlich weit, habe nur das:

    [autoit]

    $oShell = ObjCreate("shell.application")

    [/autoit][autoit][/autoit][autoit]

    $oShell.MinimizeAll

    [/autoit]

    jetzt müsste das mit screencapture kommen (wo man evtl die leiste ausblenden müsste).
    danach wäre es cool, wenn man die fenster alle restoren könnte.
    danach als wallpaper setzen ist dann wieder einfach, aber wie die desktopsymbole ausbleden (ohne irgendwelche mausklicks)?

  • Winactivate zu träge

    • sc4ry
    • 13. Oktober 2008 um 15:12

    egal was er macht, es läuft doch alles NACHEINANDER ab ... d.h. er hat in jedem fall nen delay drin.
    wie wäre es mit jeweils 1 script pro player und evtl 1 hauptscript, dass die unterscripte startet.

    passiert natürlich auch nacheinander, aber man könnte ja machen, dass das erste script 10ms wartet, das 2te 8ms usw ...
    oder die scripte werden alle gestartet und warten alle bis zeitpunkt x, wo sie alle anfangen das gleiche auszuführen.

  • Fenster deaktivieren

    • sc4ry
    • 9. Oktober 2008 um 23:35

    nur weil du das fenster nicht siehst, heißt es ja nicht, dass es nicht da ist. das sagt ja "hide" schon aus.
    du kannst den status des fensters abfragen, wenn es sichtbar ist, code senden, wenn unsichtbar, dann nicht ... und dann (wenn ich es richtig verstanden habe), ein fenster nach dem anderen prüfen.

    was mir so auf die schnelle einfällt ...

  • USB-Anschlüsse überwachen

    • sc4ry
    • 8. Oktober 2008 um 17:04

    Hi Xeno,

    dank dir, werds @ home mal testen.

    Zu Frage 2 ... die Opt. selber kenne ich, die Frage war, ob das AutoIt-Info-Tool den "Hidden Text" standardmäßig erkennt (da ich noch nie gesehen habe, dass da was drin steht)?

  • USB-Anschlüsse überwachen

    • sc4ry
    • 6. Oktober 2008 um 11:36

    Hallo,

    gibt es in AutoIt schon Code, welcher überwacht, ob über USB neue Geräte angeschlossen wurden?

    2.te Frage zum AutoIt Info Tool: wird davon, sofern möglich, der "Hidden Text" angezeigt, oder muss dafür erst
    irgendeine Funktion aktiviert werden? Ich erninner mich daran, dass man das bei Scripten extra per Opt aktivieren
    muss(te) (hab es bis jetzt aber noch nie gebraucht).

    ich würde gerne Windows-Fehlermeldungen auslesen, aber das InfoTool kann nur Header und Button lesen.

  • Bildschirm abschalten für jedermann

    • sc4ry
    • 6. Oktober 2008 um 10:19

    wenn du nen fremden rechner hackst und sichergehen willst, falls scripte aufpoppen, die keiner zu gesicht bekommt *g*

    oder kleines fun script ;)

  • Hilfe bei Alice und Router/ LAN

    • sc4ry
    • 3. Oktober 2008 um 16:37

    Hiho, dank euch.
    das hilft mir schon weiter. also drucker habe ich nicht, bzw wenn ich einen hole, würde ich den direkt am pc anschließen, denke ich.

    ich werd mich mal umgucken, wo ich nen günstigen switch herbekomme und versuche es dann nochmal *g*

    also big thx ;)

  • Hilfe bei Alice und Router/ LAN

    • sc4ry
    • 3. Oktober 2008 um 14:51

    Hiho,

    ich brauch mal eure hilfe. ich bin bei alice und hab mein teil zum
    einwählen ins internet auch von denen bekommen.
    ist glaub ich ne bridge. auf jedem pc, mit dem ich ins internet will,
    muss ich nun die alice software installieren und auf "verbinden"
    klicken.

    mir ist eigentlich nicht wichtig, dass ich per router 24 h lang im
    internet bin, bzw. nervt es mich auch nicht unbedingt, auf verbinden
    zu klicken. aber ich kann so, wie es jetzt ist, auch kein LAN
    aufbauen, um zB. schnell mitm laptop auf meinen pc zuzugreifen.
    weiterhin habe ich eine multimedia-hdd und eine wii, die ich gerne
    über wlan, bzw powerline zumindest im LAN zur verfügung stellen will.

    wenn ich das richtig sehe, müsste ich, zumindest theoretisch, auf all
    diesen geräten die alice software installieren, um ins internet/LAN
    zu kommen. ist das richtig?

    ich habe hier noch nen alten router rumstehen. was muss ich jetzt wie
    anschließen, dass ich ein ordentliches LAN mit dem router und den
    powerline-adaptern erstellen kann und natürlich weiter ins internet
    komme?

  • Klick auf deaktiviertes Element

    • sc4ry
    • 28. September 2008 um 21:07

    im selben script ?

    ruf doch einfach die funktion selber auf.

  • Basis-Client für IRC-Chat

    • sc4ry
    • 27. September 2008 um 18:10

    also mit mirc verbinde ich, wo möglich per ssl, die dateien besitze ich auch schon.
    aber in deinem script jetzt einfach den ssl-port mit + davor und beide dateien im ordner zu haben, wird wohl nicht so einfach gehen *g*

  • Basis-Client für IRC-Chat

    • sc4ry
    • 27. September 2008 um 14:40

    hi BugFix.

    hattest du schon mal (Zeit und Lust und) danach geguckt (SSL und/ oder Fish) ? ;)

  • TCP/IP Chat + RSA Verschlüsselung!

    • sc4ry
    • 26. September 2008 um 16:20

    also ich hab ein riesen prob mit dem chat. wollte den nur mal schnell testen und hab den auf O:\
    installiert.

    danach zum deinstallieren habe ich die uninstall.exe genommen und darf jetzt mit erschrecken feststellen, dass die alle dateien löschen wollte. zum glück ist mir das noch "früh" genug aufgefallen, aber es hat alle meine autoitscript gefressen.

    ich hoffe nur, ich bekomme die wieder, sonst spring ich vom dach =/

  • IRC Client mit dcc funktion

    • sc4ry
    • 24. September 2008 um 22:18

    gibt es hier was neues, finde das ganze recht interessant.
    hab mich mal zu dcc eingelesen (leider nur auf engl., darum bin ich nicht sicher, ob es alles richtig verstanden habe).

    grob habe ich rausgelesen, dass dcc/ctcp quasi nur die kommunikation rund um den datentransfer ist, der transfer selber
    findet per tcp statt, ist das korrekt? tcpsend etc geht ja mit autoit schon recht "easy" ... wie schauts da mit verschlüsseln aus?

  • Hilfe bei IE-Funcs

    • sc4ry
    • 3. September 2008 um 15:33

    Hiho,

    also ich benötige nicht direkt hilfe bei den funcs, sondern bei der analyse eines quellcodes.
    ich möchte mich per user und pw auf einer seite anmelden. bei einer anderen seite geht das mit folgendem code:

    [autoit]

    $oIE2 = _IECreate("http://www.google.de/", 0, 0, 1, -1)
    $oHWND2 = _IEPropertyGet($oIE2, "hwnd")
    $LocationURL2 = _IEPropertyGet($oIE2, "locationurl")
    If $LocationURL2 = "https://proxy.de.group.net/?dest=http://www.google.de/" Then
    $oForm = _IEFormGetCollection($oIE2, 0)
    $oUsername = _IEFormElementGetObjByName($oForm, "user")
    $oPassword = _IEFormElementGetObjByName($oForm, "pass")
    _IEFormElementSetValue($oUsername, $ieuser)
    _IEFormElementSetValue($oPassword, $iepw)
    _IEFormSubmit($oForm, 0)
    Endif

    [/autoit]

    Aber wir machen mit folgendem Quellcode?
    das unten müsste eigentlich der wichtige part sein, wo man user-input, pw-input und submit rausbekommt, oder?

    Spoiler anzeigen

    <span ct="TV" class="urTxtEmph" style="white-space:nowrap;"white-space:nowrap;>Corporate User-ID</span>
    </td>
    </tr>
    <tr>
    <td>

    <span id="htmlb_341292_htmlb_286522_1-r" class="urEdf2Whl"><input type="Text" class="urEdf2TxtEnbl" autocomplete="off" maxlength="100" id="htmlb_341292_htmlb_286522_1" ct="I" name="htmlb_341292_htmlb_286522_1" st="" tp="STRING" value="" onchange="sapUrMapi_InputField_change('htmlb_341292_htmlb_286522_1',event);" onblur="sapUrMapi_InputField_Blur('htmlb_341292_htmlb_286522_1',event);" onkeydown="sapUrMapi_InputField_keydown('htmlb_341292_htmlb_286522_1',event);" onkeyup="sapUrMapi_InputField_KeyUp('htmlb_341292_htmlb_286522_1',event);" onfocus="sapUrMapi_InputField_focus('htmlb_341292_htmlb_286522_1',event);" onselectstart="sapUrMapi_InputField_onselectstart('htmlb_341292_htmlb_286522_1',event);" ></span>
    </td>
    </tr>
    <tr>
    <td>
    <span ct="TV" class="urTxtEmph" style="white-space:nowrap;"white-space:nowrap;>Passwort</span>
    </td>
    </tr>
    <tr>
    <td>
    <span id="htmlb_341292_htmlb_286522_2-r" class="urEdf2Whl"><input type="Password" class="urEdf2TxtEnbl" autocomplete="off" maxlength="100" id="htmlb_341292_htmlb_286522_2" ct="I" name="htmlb_341292_htmlb_286522_2" st="" tp="PW" value="" onchange="sapUrMapi_InputField_change('htmlb_341292_htmlb_286522_2',event);" onblur="sapUrMapi_InputField_Blur('htmlb_341292_htmlb_286522_2',event);" onkeydown="sapUrMapi_InputField_keydown('htmlb_341292_htmlb_286522_2',event);" onkeyup="sapUrMapi_InputField_KeyUp('htmlb_341292_htmlb_286522_2',event);" onfocus="sapUrMapi_InputField_focus('htmlb_341292_htmlb_286522_2',event);" onselectstart="sapUrMapi_InputField_onselectstart('htmlb_341292_htmlb_286522_2',event);" ></span>
    </td>
    </tr>
    <tr>
    <td>

    <a id="htmlb_341292_htmlb_286522_3" ct="B" st="" href="javascript:void(0);" class="urBtnStd" ocl="if (htmlbButton_checkClick('htmlb_341292_htmlb_286522_3', event)) {return htmlbDoEvent(this,'X','onclick','0','htmlb_341292_htmlb_286522',3,1,'',0);}" onkeydown="return ur_Button_keypress(event)" onclick="return ur_Button_click(event);" >Anmelden</a>

  • wie tray menü und gui gleichzeitig in einer Schleife?

    • sc4ry
    • 3. September 2008 um 13:25

    weiß nicht in wie fern ich alleine da stehe, aber ich finde es mit den schleifen sehr unübersichtlich.
    kannst ja mal den OnEventMode probieren (GuiOnEvent, TrayOnEvent) ... da erstellste funktionen für
    jede aufgabe..

    finde ich pers. einfacher und übersichtlicher. zumal man damit auch keine fehler bei evtl. auftretenden
    Problemen in der schleife erhält.

  • _GuiCtrlHyperLinkCreate

    • sc4ry
    • 2. September 2008 um 21:43

    Hallo,

    die funktion läuft leider nicht mehr, kennt die wer ?

    fehler ist:

    [autoit]

    C:\Program Files\AutoIt3\Include\GuiHyperLink.au3 (154) : ==> Subscript used with non-Array variable.:
    If $hl[0] Then
    If $hl^ ERROR

    [/autoit]

    hier mal das komplette script:

    Spoiler anzeigen
    [autoit]

    #include <FontConstants.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    #cs
    Global Const $DebugIt = 1

    [/autoit] [autoit][/autoit] [autoit]

    Global Const $WM_SETFONT = 0x30
    Global Const $LOGPIXELSX = 88

    [/autoit] [autoit][/autoit] [autoit]

    ; font weight
    Global Const $FW_DONTCARE = 0
    Global Const $FW_THIN = 100
    Global Const $FW_EXTRALIGHT = 200
    Global Const $FW_ULTRALIGHT = 200
    Global Const $FW_LIGHT = 300
    Global Const $FW_NORMAL = 400
    Global Const $FW_REGULAR = 400
    Global Const $FW_MEDIUM = 500
    Global Const $FW_SEMIBOLD = 600
    Global Const $FW_DEMIBOLD = 600
    Global Const $FW_BOLD = 700
    Global Const $FW_EXTRABOLD = 800
    Global Const $FW_ULTRABOLD = 800
    Global Const $FW_HEAVY = 900
    Global Const $FW_BLACK = 900

    [/autoit] [autoit][/autoit] [autoit]

    ;~ lfItalic
    ;~ Specifies an italic font if set to TRUE.
    ;~ lfUnderline
    ;~ Specifies an underlined font if set to TRUE.
    ;~ lfStrikeOut
    ;~ Specifies a strikeout font if set to TRUE.

    [/autoit] [autoit][/autoit] [autoit]

    Global Const $PROOF_QUALITY = 2
    #ce
    ;~ typedef struct tagLITEM {
    ;~ UINT mask;
    ;~ int iLink;
    ;~ UINT state;
    ;~ UINT stateMask;
    ;~ WCHAR szID[MAX_LINKID_TEXT];
    ;~ WCHAR szUrl[L_MAX_URL_LENGTH];
    ;~ } LITEM, *PLITEM;

    [/autoit] [autoit][/autoit] [autoit]

    ;~ Members

    [/autoit] [autoit][/autoit] [autoit]

    ;~ mask
    ;~ Combination of one or more of the following flags, describing the information to set or retrieve.
    ;~ LIF_ITEMINDEX
    ;~ Retrieve the numeric item index. Items are always accessed by index, therefore you must always set this flag and assign a value to iLink. To obtain the item ID you must set both LIF_ITEMINDEX and LIF_ITEMID.
    ;~ LIF_STATE
    ;~ Use stateMask to get or set the state of the link.
    ;~ LIF_ITEMID
    ;~ Specify the item by the ID value given in szID.
    ;~ LIF_URL
    ;~ Set or get the URL for this item.
    ;~ iLink
    ;~ Value of type int that contains the item index. This numeric index is used to access a SysLink control link.
    ;~ state
    ;~ Combination of one or more of the following flags, describing the state of the item.
    ;~ LIS_ENABLED
    ;~ The link can respond to user input. This is the default unless the entire control was created with WS_DISABLED. In this case, all links are disabled.
    ;~ LIS_FOCUSED
    ;~ The link has the keyboard focus. Pressing ENTER sends a NM_CLICK notification.
    ;~ LIS_VISITED
    ;~ The link has been visited by the user. Changing the URL to one that has not been visited causes this flag to be cleared.
    ;~ stateMask
    ;~ Combination of flags describing which state item to get or set. Allowable items are identical to those allowed in state.
    ;~ szID
    ;~ WCHAR string that contains the ID name. The maximum number of characters in the array is MAX_LINKID_TEXT. The ID name cannot be used to access a SysLink control link. You use the item index to access the item.
    ;~ szUrl
    ;~ WCHAR string that contains the URL represented by the link. The maximum number of characters in the array is L_MAX_URL_LENGTH.

    [/autoit] [autoit][/autoit] [autoit]

    Global $hl_hwnd[1][1]
    Global Const $ICC_LINK_CLASS = 0x8000
    Global Const $LIF_ITEMINDEX = 0x1
    Global Const $LIF_STATE = 0x2
    Global Const $LIF_URL = 0x8
    Global Const $LIF_ITEMID = 0x4
    Global Const $LIS_ENABLED = 0x2
    Global Const $LIS_FOCUSED = 0x1
    Global Const $LIS_VISITED = 0x4
    Global Const $MAX_LINKID_TEXT = 48
    Global Const $L_MAX_URL_LENGTH = (2048 + 32 + StringLen("://"))
    Global Const $WC_LINK = "SysLink"

    [/autoit] [autoit][/autoit] [autoit]

    Global Const $COINIT_MULTITHREADED = 0x0
    Global Const $COINIT_APARTMENTTHREADED = 0x2
    Global Const $COINIT_DISABLE_OLE1DDE = 0x4
    Global Const $COINIT_SPEED_OVER_MEMORY = 0x8

    [/autoit] [autoit][/autoit] [autoit]

    Global Const $S_OK = 0x0
    Global Const $S_FALSE = 0x1
    Global Const $OLE_E_WRONGCOMPOBJ = 0x8004000E
    Global Const $RPC_E_CHANGED_MODE = 0x80010106

    [/autoit] [autoit][/autoit] [autoit]

    ;~ Global Const $WM_USER = 0x400
    Global Const $LM_SETITEM = ($WM_USER + 0x302)
    Global Const $LM_GETIDEALHEIGHT = ($WM_USER + 0x301)
    Global Const $LM_GETITEM = ($WM_USER + 0x303)
    Global Const $LM_HITTEST = ($WM_USER + 0x300)

    [/autoit] [autoit][/autoit] [autoit]

    Global Const $NMHDR = "int;int;int"
    Global $LITEM = "int;int;int;int;char[" & $MAX_LINKID_TEXT & "];char[" & $L_MAX_URL_LENGTH & "]"
    Global $NMLINK = $NMHDR & ";" & $LITEM

    [/autoit] [autoit][/autoit] [autoit]

    Global Enum $mask = 1, $iLink, $state, $stateMask, $szID, $szUrl

    [/autoit] [autoit][/autoit] [autoit]

    Func _GuiCtrlHyperLinkCreate($h_Gui, $s_text, $s_link, $s_LinkOn, $x = 10, $y = 10, $width = 120, $height = 20, $v_styles = -1, $v_exstyles = -1, _
    $FontName = "Arial", $FontSize = 10, $FontWeight = 400, $FontItalic = 0, $FontUnderline = 0, $FontStrikeThru = 0)
    Local $hyper_link, $hl, $l_hwnd, $style, $num_links = 0, $l
    Local $UDF_link_num = 0
    If Not IsHWnd($h_Gui) Then $h_Gui = HWnd($h_Gui)
    $style = BitOR($WS_CHILD, $WS_VISIBLE)
    If $v_styles <> - 1 Then $style = BitOR($style, $v_styles)
    If $v_exstyles = -1 Then $v_exstyles = 0
    Local $stICCE = DllStructCreate('dword;dword')
    DllStructSetData($stICCE, 1, DllStructGetSize($stICCE))
    DllStructSetData($stICCE, 2, $ICC_LINK_CLASS)
    DllCall('comctl32.dll', 'int', 'InitCommonControlsEx', 'ptr', DllStructGetPtr($stICCE))

    DllCall('ole32.dll', 'long', 'CoInitializeEx', 'int', 0, 'long', $COINIT_DISABLE_OLE1DDE)
    If IsArray($s_LinkOn) And IsArray($s_link) Then
    For $l = 0 To UBound($s_LinkOn) - 1
    $s_text = StringReplace($s_text, $s_LinkOn[$l], '<A HREF="' & $s_link[$l] & '">' & $s_LinkOn[$l] & '</A>')
    $num_links += @extended
    Next
    $hyper_link = $s_text
    ElseIf Not IsArray($s_LinkOn) And Not IsArray($s_link) Then
    $hyper_link = StringReplace($s_text, $s_LinkOn, '<A HREF="' & $s_link & '">' & $s_LinkOn & '</A>')
    $num_links = @extended
    Else
    Return SetError(4, 4, -1)
    EndIf

    $l_hwnd = DllCall("user32.dll", "long", "CreateWindowEx", "long", $v_exstyles, _
    "str", $WC_LINK, "str", $hyper_link, _
    "long", $style, "long", $x, "long", $y, "long", $width, "long", $height, _
    "hwnd", $h_Gui, "long", 0, "hwnd", 0, "long", 0)
    If Not @error Then
    If IsArray($s_LinkOn) Then
    For $y = 0 To UBound($s_link) - 1
    $hl = _GuiCtrlHyperLinkSetLink($l_hwnd[0], $s_link[$y], Default, $UDF_link_num)
    $UDF_link_num += 1
    Next
    Else

    For $x = 0 To $num_links - 1
    $hl = _GuiCtrlHyperLinkSetLink($l_hwnd[0], $s_link, Default, $UDF_link_num)
    $UDF_link_num += 1
    Next
    EndIf

    If $hl[0] Then
    _GuiCtrlHyperLinkSetFont($l_hwnd[0], $FontName, $FontSize, $FontWeight, $FontItalic, $FontUnderline, $FontStrikeThru)
    ReDim $hl_hwnd[UBound($hl_hwnd) + 1][1]
    $hl_hwnd[0][0] += 1
    $hl_hwnd[$hl_hwnd[0][0]][0] = $l_hwnd[0]
    Return $l_hwnd[0]
    Else
    ReDim $hl_hwnd[UBound($hl_hwnd) + 1][1]
    $hl_hwnd[0][0] += 1
    $hl_hwnd[$hl_hwnd[0][0]][0] = $l_hwnd[0]
    Return SetError(2, 2, $l_hwnd[0])
    EndIf
    Else
    Return SetError(1, 1, -1)
    EndIf

    Return 0
    EndFunc ;==>_GuiCtrlHyperLinkCreate

    [/autoit] [autoit][/autoit] [autoit]

    Func _GuiCtrlHyperLinkSetFont($h_hwnd, $FontName = "Arial", $FontSize = 10, $FontWeight = 400, $FontItalic = 0, $FontUnderline = 0, $FontStrikeThru = 0)
    Local $ret = DllCall("gdi32.dll", "long", "GetDeviceCaps", "long", 0, "long", $LOGPIXELSX)
    If ($ret[0] == -1) Then Return SetError(3, 3, 5)
    GUISetState(@SW_LOCK)
    Local $lfHeight = Round(($FontSize * $ret[2]) / 72, 0)
    Local $font = DllStructCreate("int;int;int;int;int;byte;byte;byte;byte;byte;byte;byte;byte;char[32]")
    DllStructSetData($font, 1, $lfHeight + 1)
    DllStructSetData($font, 5, $FontWeight)
    DllStructSetData($font, 6, $FontItalic)
    DllStructSetData($font, 7, $FontUnderline)
    DllStructSetData($font, 8, $FontStrikeThru)
    DllStructSetData($font, 12, $PROOF_QUALITY)
    DllStructSetData($font, 14, $FontName)
    $ret = DllCall("gdi32.dll", "long", "CreateFontIndirect", "long", DllStructGetPtr($font))

    DllCall("user32.dll", "int", "SendMessage", "hwnd", $h_hwnd, "int", $WM_SETFONT, "long", $ret[0], "int", True)
    GUISetState(@SW_UNLOCK)
    EndFunc ;==>_GuiCtrlHyperLinkSetFont

    [/autoit] [autoit][/autoit] [autoit]

    Func _GuiCtrlHyperLinkSetLink($l_hwnd, $s_link, $v_state = -1, $UDF_link_num = 0)
    Local $hl, $s_szID, $link, $v_mask
    If $v_state = -1 Then
    $v_mask = BitOR($LIF_URL, $LIF_ITEMINDEX, $LIF_ITEMID)
    Else
    $v_mask = BitOR($LIF_URL, $LIF_ITEMINDEX, $LIF_STATE, $LIF_ITEMID)
    EndIf
    $s_szID = StringFormat("%-" & $MAX_LINKID_TEXT & "s", "UDF Maniac HyperLink " & $UDF_link_num + 1)
    $link = DllStructCreate($LITEM)
    DllStructSetData($link, $mask, $v_mask)
    DllStructSetData($link, $iLink, $UDF_link_num)
    If $v_state <> - 1 Then
    DllStructSetData($link, $state, $v_state)
    DllStructSetData($link, $stateMask, $v_state)
    EndIf
    DllStructSetData($link, $szID, $s_szID)
    DllStructSetData($link, $szUrl, $s_link)
    $hl = DllCall("user32.dll", "int", "SendMessage", "hwnd", $l_hwnd, "int", $LM_SETITEM, "int", 0, "ptr", DllStructGetPtr($link))
    Return $hl
    EndFunc ;==>_GuiCtrlHyperLinkSetLink

    [/autoit] [autoit][/autoit] [autoit]

    Func _GuiCtrlHyperLinkGetLinkInfo($l_hwnd, $UDF_link_num = 0)
    Local $hl, $s_szID, $link
    $s_szID = StringFormat("%-" & $MAX_LINKID_TEXT & "s", "UDF Maniac HyperLink " & $UDF_link_num + 1)
    $link = DllStructCreate($LITEM)
    DllStructSetData($link, $mask, BitOR($LIF_URL, $LIF_ITEMINDEX, $LIF_STATE, $LIF_ITEMID))
    DllStructSetData($link, $iLink, $UDF_link_num)
    DllStructSetData($link, $stateMask, BitOR($LIS_ENABLED, $LIS_FOCUSED, $LIS_VISITED))
    $hl = DllCall("user32.dll", "int", "SendMessage", "hwnd", $l_hwnd, "int", $LM_GETITEM, "int", 0, "ptr", DllStructGetPtr($link))
    If Not $hl[0] Then Return SetError(1, 1, 0)
    Return StringSplit(DllStructGetData($link, $state) & "|" & DllStructGetData($link, $szID) & "|" & DllStructGetData($link, $szUrl), "|")
    EndFunc ;==>_GuiCtrlHyperLinkGetLinkInfo

    [/autoit]

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™