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. chrisatack

Beiträge von chrisatack

  • POST-Daten mit URL übergeben?

    • chrisatack
    • 19. Oktober 2007 um 23:36

    Ohhhh mein Gott ...
    schande auf mich....!!!

    Das hätte ich aber auch sehen müssen........
    energy DAFÜR LIEBE ICH DICH :P
    genau nach sowas habe ich schon lange lange gesucht und jetzt klappt es ^^

    BIG BIG THX

    MFG chris:D

    EDIT:

    Werde dann das fertige Programm mal hier Posten....

  • POST-Daten mit URL übergeben?

    • chrisatack
    • 19. Oktober 2007 um 16:43

    Hi

    THX @energy Nur leider komme ich damit noch nicht so richtig weiter...
    Habe mal folgendes ausprobiert... :comp2:

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    #include <inet.au3>
    #include <array.au3>
    #include <string.au3>

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

    $link = 'http://85.17.177.195/sjsafe/f-f4a18bb61df218d2/rs_sga401.html'

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

    $quelltext = _INetGetSource ( $link );quelltext holen
    $SessionID = _StringBetween ( $quelltext,'VALUE="','">');SessionID ermitteln
    ;_ArrayDisplay ($SessionID)
    $captcha_add = _StringBetween ($quelltext,'src="/sjsafe/secure/','.gif"',-1);captcha adresse herausfiltern
    InetGet ("http://85.17.177.195/sjsafe/secure/"&$captcha_add[0]&'.gif',"captcha.gif",1);Captcha herunterladen
    SplashImageOn ( '','captcha.gif',100,30,25,25,1)
    $captcha_code = InputBox ( '','Captcha eingeben')

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

    ShellExecuteWait('wget.exe','--output-document quelltext.txt --save-cookies=login --keep-session-cookies --post-data "'&'s='&$SessionID&'&c='&$captcha_code&'" '&$link)

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

    Das gibt mir aber den gleichen Quelltext in der quelltext.txt raus wie auf der Seite http://85.17.177.195/sjsafe/f-f4a18…/rs_sga401.html
    Habe mir auch mal die Hilfe zu wget durchgelesen.... nur übersteigt das bei weiten meinen Wissen...
    Vieleicht kannst du mir ja noch nen Tip geben

    Vielen Dank schonmal!!!

    MFG chris

  • POST-Daten mit URL übergeben?

    • chrisatack
    • 19. Oktober 2007 um 11:23

    Moin

    Erstmal danke für die Antworten.

    @jonk

    Das war eigentlich genau das was ich gesucht habe^^ denke ich mal...
    Big THX

    GtaSpider

    Serienjunkies war eigentlich nur eine Bsp. Seite von mir.
    Ich habe das Script mit _iecreate und _ieBodyReadHTML schon am laufen nur ist mir das leider zu langsam.


    MFG chris

    (Der völlig unterschätze Sportteilnehmer)

  • POST-Daten mit URL übergeben?

    • chrisatack
    • 18. Oktober 2007 um 22:49

    Hi8)

    Sorry ich weiß nicht ob das so ganz hier hin passt aber ich bin an nem programm am basteln und wollte mal fragen wie man POST-Daten mit Hyperlink übergeben kann?:P

    Wenn ich z.b ein Captcha habe und das dann direkt per URL übergeben möchste , also kein _IEcreate oder so sonder über _inetgetsource:comp2:

    z.B. auf dieser Seite:

    http://85.17.177.195/sjsafe/f-4d7d2…_Sp_S01E01.html

    Hier habe ich ein Inputfeld und muss dann die eingegebenen daten Abschicken.
    Geht das nicht einfach auch als URL direckt oben in den Browser eingegeben... zB so...

    http://85.17.177.195/sjsafe/f-4d7d2d77432ceaac/rc_Sp_S01E01.html?s=322a2f9ec370b6444130be511ead0fca&c=zef

    Hoffe mir kann jemand Helfen...

    MFG chris:D

  • Kleines Matheprogramm

    • chrisatack
    • 1. Oktober 2007 um 10:47

    Hi ....

    Chicago erstmal thx für das nice Prog^^

    Hatte mir vor kurzem auch mal was gebastelt zu Umrechnung von Grad Min und Sec... wollte es nur mal hier Posten falls es jemanden interessiert...

    [Blockierte Grafik: http://img214.imageshack.us/img214/6347/01ta9.png]

    Spoiler anzeigen
    [autoit]


    #NoTrayIcon
    #include <GUIConstants.au3>
    #include <Misc.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Formelrechner | Winkelumrechnung mit Grad/Min/Sec ~ by chris", 854, 150)
    $Label1 = GUICtrlCreateLabel("Winkelumrechnung", 8, 8, 837, 33, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 14, 800, 0, "Verdana")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x6E6E6E)
    $Group1 = GUICtrlCreateGroup(" Winkelrechnungen mit Grad Min und Sec ", 8, 56, 835, 80)
    $grad1 = GUICtrlCreateInput("", 16, 104, 33, 21)
    $gradmin1 = GUICtrlCreateInput("", 64, 104, 33, 21)
    $gradsec1 = GUICtrlCreateInput("", 112, 104, 33, 21)
    $Combo1 = GUICtrlCreateCombo("+", 160, 104, 41, 25,BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
    GUICtrlSetData (-1,"-")
    $grad2 = GUICtrlCreateInput("", 208, 104, 33, 21)
    $gradmin2 = GUICtrlCreateInput("", 256, 104, 33, 21)
    $gradsec2 = GUICtrlCreateInput("", 304, 104, 33, 21)
    $Berechne1 = GUICtrlCreateButton("Berechne", 718, 104, 63, 21, 0)
    $leeren = GUICtrlCreateButton("Leeren", 787, 104, 50, 21, 0)
    $ergebgrad = GUICtrlCreateInput("0", 400, 104, 73, 21,$ES_READONLY)
    $ergebmin = GUICtrlCreateInput("0", 512, 104, 73, 21,$ES_READONLY)
    $ergebsec = GUICtrlCreateInput("0", 624, 104, 73, 21,$ES_READONLY)
    $Label3 = GUICtrlCreateLabel("°", 52, 104, 8, 17)
    $Label4 = GUICtrlCreateLabel("'", 102, 104, 6, 17)
    $Label5 = GUICtrlCreateLabel('"', 149, 104, 12, 17)
    $Label6 = GUICtrlCreateLabel('" =', 341, 104, 45, 17)
    $Label7 = GUICtrlCreateLabel("'", 294, 104, 6, 17)
    $Label8 = GUICtrlCreateLabel("°", 244, 104, 8, 17)
    $Label9 = GUICtrlCreateLabel("° oder ", 476, 104, 35, 17)
    $Label2 = GUICtrlCreateLabel(" Winkel 1 +/- Winkel 2 = Ergebnis", 16, 80, 821, 17)
    GUICtrlSetBkColor(-1, 0xD5D5D5)
    $Label10 = GUICtrlCreateLabel("' oder ", 588, 104, 33, 17)
    $Label11 = GUICtrlCreateLabel('"', 700, 104, 9, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    HotKeySet ("{enter}","_doit")

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Berechne1

    _doit ()

    Case $leeren
    GUICtrlSetData($grad1,"")
    GUICtrlSetData($gradmin1,"")
    GUICtrlSetData($gradsec1,"")
    GUICtrlSetData($grad2,"")
    GUICtrlSetData($gradmin2,"")
    GUICtrlSetData($gradsec2,"")
    GUICtrlSetData($ergebgrad,"")
    GUICtrlSetData($ergebmin,"")
    GUICtrlSetData($ergebsec,"")
    EndSwitch
    WEnd

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

    Func _doit ()

    If GUICtrlRead($gradsec1)>59 or GUICtrlRead($gradmin1)>59 or GUICtrlRead($gradsec2)>59 or GUICtrlRead($gradmin2)>59 Then
    HotKeySet ("{enter}")
    MsgBox (16,"error","Grad sec/min kann nicht >59 sein!")
    HotKeySet ("{enter}","_doit")
    Else
    $sec = GUICtrlRead($gradsec1) /60 ;WINKEL 1
    $zwischn1 = GUICtrlRead($gradmin1)+$sec
    $min = $zwischn1/60
    $ergeb1 = GUICtrlRead($grad1) + $min

    $sec2 = GUICtrlRead($gradsec2) /60 ;WINKEL 2
    $zwischn2 = GUICtrlRead($gradmin2)+$sec2
    $min2 = $zwischn2/60
    $ergeb2 = GUICtrlRead($grad2) + $min2

    ;ERGEBNIS BERECHNEN
    if GUICtrlRead($Combo1) = '+' Then
    $ergebnisgesammt = $ergeb1 + $ergeb2
    Else
    $ergebnisgesammt = $ergeb1 - $ergeb2
    EndIf
    $ergebnisgesammt = Round ($ergebnisgesammt,2)
    GUICtrlSetData ($ergebgrad,$ergebnisgesammt)

    GUICtrlSetData ($ergebmin,Round($ergebnisgesammt*60,2)); ERGEBNIS MIN '
    ;MsgBox (0,"",Round($ergebnisgesammt*60,0))
    $ergebnismin = Round($ergebnisgesammt*60,2)
    GUICtrlSetData ($ergebsec,Round($ergebnismin*60,2)); ERGEBNIS SEC "
    EndIf
    EndFunc

    [/autoit]

    MFG chris :D

  • Combo und checkbox HG

    • chrisatack
    • 22. August 2007 um 10:28

    moin

    Habe mal wieder nen kleines Problem.
    :comp2:
    bei mir klappts leider nicht den Hintergrund von ne checkbox und ne combo in (grün) zu ändern...

    Bei nen button klappts einwandfrei...:O

    [autoit]


    $button_login = GUICtrlCreateButton("Anmelden", 10, 170, 81, 21, 0)
    GUICtrlSetBkColor (-1,0xc4f269)

    [/autoit]

    aber wenn ich das bei ner Combo u checkbox mache??...?(

    [autoit]


    $Combo_status = GUICtrlCreateCombo("Verfügbar", 10, 123, 131, 25,BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
    GUICtrlSetBkColor (-1,0xc4f269)
    $Checkbox1 = GUICtrlCreateCheckbox("Automatisch Anmelden", 10, 150, 130, 15)
    GUICtrlSetBkColor (-1,0xc4f269)

    [/autoit]

    Dann habe ich noch ne weitere Frage...?(
    wie bekomme ich Bilder in ne Combo... oder besser gesagt geht das überhaupt..?
    z.B.

    [autoit]


    $Combo_status = GUICtrlCreateCombo("*BILD*Verfügbar", 10, 123, 131, 25,BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))

    [/autoit]

    MFG chris:D

  • Gui Design möglich?

    • chrisatack
    • 21. August 2007 um 10:41

    Hiho...

    Wollte nur mal meinen Erfolg hier rein schreiben... :D
    Habe den Gui doch tatsächlich alleine hinbekommen...nach langem suchen hier im Board und dem auseinanderpflücken von GTA spiders SMS Sender habe ich herausgefunden das er eine PNG include au3 namens AL3GDIPlus.au3
    Hier jetzt das fertige Tool... :weinen:

    CIM.exe<<< Fertige Tool

    :comp2:

    Spoiler anzeigen
    [autoit]


    #NoTrayIcon
    #include <A3LGDIPlus.au3> ; PNG load
    #include <GUIConstants.au3>

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

    FileInstall ("C:\Dokumente und Einstellungen\Administrator\Desktop\auto it\CIM\grey.gif","grey.gif")
    FileInstall ("C:\Dokumente und Einstellungen\Administrator\Desktop\auto it\CIM\start.png","start.png")

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

    ;#####################################################################################################################
    _GDIP_Startup ()
    $pngSrcstartpic = @ScriptDir & "\start.png"
    $hImagestartpic = _GDIP_ImageLoadFromFile ($pngSrcstartpic)
    $hWidthstartpic = _GDIP_ImageGetWidth ($hImagestartpic)
    $hHeightstartpic = _GDIP_ImageGetHeight ($hImagestartpic)
    Global Const $AC_SRC_ALPHA = 1
    Global Const $ULW_ALPHA = 2

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

    $wintittel = 'CIM'
    $maingui = GUICreate("CIM", 328, 75, -1, -1, $WS_TABSTOP, $WS_EX_LAYERED);$WS_POPUP +
    $controlonGui = GUICreate("ctrl", 328, 75, 0, -20, $WS_POPUP + $WS_TABSTOP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $maingui)
    GUICtrlCreatePic(@ScriptDir & "\grey.gif", 0, 0, 328, 75)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Combo_status = GUICtrlCreateCombo("Verfügbar", 110, 30, 131, 25,BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
    GUICtrlSetData (-1,"----------------------|Abwesend|Unsichtbar|----------------------|Nicht verfügbar")
    $button_exit = GUICtrlCreateButton("x", 308, 12, 11, 14,$bs_flat)
    $button_login = GUICtrlCreateButton("Anmelden", 250, 30, 61, 21, 0)

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

    SetBitmap($maingui, $hImagestartpic, 0)

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

    GUISetState(@SW_SHOW, $maingui)
    GUISetState(@SW_SHOW, $controlonGui)
    ;#####################################################################################################################
    For $i = 0 To 255 Step 5
    SetBitmap($maingui, $hImagestartpic, $i)
    Next
    SetBitmap($maingui, $hImagestartpic, 255)
    ;#####################################################################################################################
    While 1
    $nMsg = GUIGetMsg ()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    For $i = 255 To 0 Step -5
    SetBitmap($maingui, $hImagestartpic, $i)
    Next
    SetBitmap($maingui, $hImagestartpic, 0)
    GUIDelete($maingui)
    GUIDelete($controlonGui)
    Exit
    Case $button_exit
    For $i = 255 To 0 Step -5
    SetBitmap($maingui, $hImagestartpic, $i)
    Next
    SetBitmap($maingui, $hImagestartpic, 0)
    GUIDelete($maingui)
    GUIDelete($controlonGui)
    Exit
    EndSwitch
    WEnd

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

    ;#####################################################################################################################
    Func SetBitmap($hGUI, $hImagestartpic, $iOpacity, $hWidth = '', $hHeight = '')
    Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend
    If $hWidth = '' Then $hWidth = _GDIP_ImageGetWidth ($hImagestartpic)
    If $hHeight = '' Then $hHeight = _GDIP_ImageGetHeight ($hImagestartpic)

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

    $hScrDC = _API_GetDC (0)
    $hMemDC = _API_CreateCompatibleDC ($hScrDC)
    $hBitmap = _GDIP_BitmapCreateHBITMAPFromBitmap ($hImagestartpic)
    $hOld = _API_SelectObject ($hMemDC, $hBitmap)
    $tSize = DllStructCreate($tagSIZE)
    $pSize = DllStructGetPtr($tSize)
    DllStructSetData($tSize, "X", $hWidth)
    DllStructSetData($tSize, "Y", $hHeight)
    $tSource = DllStructCreate($tagPOINT)
    $pSource = DllStructGetPtr($tSource)
    $tBlend = DllStructCreate($tagBLENDFUNCTION)
    $pBlend = DllStructGetPtr($tBlend)
    DllStructSetData($tBlend, "Alpha", $iOpacity)
    DllStructSetData($tBlend, "Format", $AC_SRC_ALPHA)
    _API_UpdateLayeredWindow ($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
    _API_ReleaseDC (0, $hScrDC)
    _API_SelectObject ($hMemDC, $hOld)
    _API_DeleteObject ($hBitmap)
    _API_DeleteDC ($hMemDC)
    EndFunc ;==>SetBitmap

    [/autoit]
  • SMS Sender - 100%ig kosteloses SMS Senden!

    • chrisatack
    • 20. August 2007 um 21:08

    hiho..

    habe mir den dienst bei smsgott.de mal gerade eben getestet... kann das dein das der nimmer geht?
    jedes mal wenn ich eine sms versuche zu verschicken kommt das ich eine gültige Handynummer eingeben soll...?? 0049176.... ist doch richtig oder?

    MFG chris

  • MouseOver

    • chrisatack
    • 20. August 2007 um 14:26

    also bei mir ist das so...

    [autoit]


    ;.......
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Exit

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

    EndSwitch
    _Tooltip()
    Sleep(10)
    WEnd
    ;......

    [/autoit]

    hiermit läuft der gui ja jetzt.....
    und er führt andauernt die funktion _tooltip() aus.

    [autoit]

    Func _Tooltip()
    $tooltip_sleep = '50'

    ;Spieler1-----------------------------------------------------------------------------
    If _MouseOver(10, 20, 81, 31) = 1 Then
    Do
    ToolTip ("1 checkbox",Default,Default,'Tooltip',1)
    Sleep($tooltip_sleep)
    Until _MouseOver(10, 20, 81, 31) = 0
    ToolTip('')
    EndIf

    ;Name2-----------------------------------------------------------------------------
    If _MouseOver(10, 60, 81, 21) = 1 Then
    Do
    ToolTip ("2 checkbox",Default,Default,'Tooltip',1)
    Sleep($tooltip_sleep)
    Until _MouseOver(10, 60, 81, 21) = 0
    ToolTip('')
    EndIf

    ;Name3-----------------------------------------------------------------------------
    If _MouseOver(10, 100, 61, 31) = 1 Then
    Do
    ToolTip ("exit",Default,Default,'Tooltip',1)
    Sleep($tooltip_sleep)
    Until _MouseOver(10, 100, 61, 31) = 0
    ToolTip('')
    EndIf
    EndFunc

    [/autoit]


    Wenn der gui jetzt aktiv ist und du mit der maus über die Koordinaten 10, 20, 81, 31 relativ zum Gui kommst kommt ein tooltip...

    um zu prüfen ob der gui auch auf der stelle ist wird die funktion...
    _MouseOver() benötigt

    [autoit]

    Func _MouseOver($_mo_x, $_mo_y, $_mo_width, $_mo_height)
    If WinActive($wintittel) = 1 Then ; WICHTIG!!!!! NUR WENN DAS FENSTER AKTIV IST MOUSOVER PRÜFEN
    $_mo_pos = GUIGetCursorInfo()
    If ($_mo_pos[0] > $_mo_x) and ($_mo_pos[0] < $_mo_x + $_mo_width) and ($_mo_pos[1] > $_mo_y) and ($_mo_pos[1] < $_mo_y + $_mo_height) Then
    Return 1
    Else
    Return 0
    EndIf
    EndIf
    EndFunc

    [/autoit]


    prüfen ob das fenster aktiv ist....
    dann Mausposition prüfen... wenn sie über 10, 20, 81, 31 ist dann return1 und dann bleibt er so lange in der funktion wie du mit der maus in dem feld 10, 20, 81, 31 bist... halt wegen dem do...

    Ich hoffe du hast es verstanden ...

    MFG chris :D

  • Automatischer Login [gelöst]

    • chrisatack
    • 20. August 2007 um 12:19

    Hey...

    vieleicht willst du das so haben...

    [autoit]


    #include <GUIConstants.au3>
    #include <IE.au3>

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

    $url = 'www.google.de';Seite auf die navigiert werden soll

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


    #Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\kubiak\desktop\koda_1.6.0.2\forms\aidalogin.xml.kxf
    $AIDALogin = GUICreate(" Aida Login", 264, 88, 354, 237)
    GUISetBkColor(0xA6CAF0)
    $Personalnummer = GUICtrlCreateLabel("Personalnummer", 8, 8, 82, 17)
    GUICtrlSetBkColor(-1, 0xA6CAF0)
    $Passwort = GUICtrlCreateLabel("Passwort", 8, 32, 47, 17)
    GUICtrlSetBkColor(-1, 0xA6CAF0)
    $n = GUICtrlCreateInput("", 104, 8, 153, 21)
    $pw = GUICtrlCreateInput("", 104, 32, 153, 21)
    $Enter = GUICtrlCreateButton("einloggen", 80, 64, 89, 17, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Enter
    _enter()
    EndSwitch
    WEnd

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

    Func _enter()
    $fenster1 = _IECreate($url,0,1,1)

    $hwnd = _IEPropertyGet($fenster1, "hwnd")
    ;Hier kommt dein login rein!! z.B. so.....
    ControlSend($hwnd, "", "Internet Explorer_Server1", GUICtrlRead($n));<-- ergibt dann das was du oben in dein Input Personalnummer geschrieben hast
    ;ControlSend($hwnd, "", "Internet Explorer_Server1", "{tab}")
    ControlSend($hwnd, "", "Internet Explorer_Server1", "{enter}")

    _IELoadWait ($fenster1)

    EndFunc

    [/autoit]

    MFG chris :D

  • Die erste File Over TCP Funktion

    • chrisatack
    • 19. August 2007 um 14:53

    Hi

    Habe das ganze auch mal gerade ausprobiert... erstmal BIG RESPECKT an gtaspider^^
    Bei mir kommt es nur leider zu einem kleinem Problem...
    Habe versucht eine mp3 damit übers Netzwerk zu schicken, die im orginal 4,3 MB groß ist.

    Wenn ich sie aber übertragen habe kommen auf dem anderen rechner nur noch 1,4kB an...
    mache ich was falsch??(

    MFG chris:D

  • Programmstart

    • chrisatack
    • 19. August 2007 um 13:40

    Moin

    vieleicht suchst du sowas hier...

    [autoit]


    #include <Misc.au3>

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

    MsgBox (0,'','Ab hier läuft dein Script')
    do
    Sleep(10)
    If _IsPressed ('13') = true Then;13 = hex für pause
    pause()
    EndIf
    If _IsPressed ('1B') = true Then;1B = hex für esc
    MsgBox (0,'','ESC gedrückt. Script ende!')
    Exit
    EndIf
    Until 1 = 2

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

    Func pause()
    MsgBox (0,'','Anfang der Pause (Pause) drücken um zu beenden')
    Do
    Sleep(10)
    Until _IsPressed ('13')

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

    MsgBox (0,'','Ende der Pause')
    EndFunc

    [/autoit]

    Wenn dus laufen lässt kommst du mit {pause} in die Pause Funktion und wenn du nochmal Pause drückst kommst du wieder raus....
    Wenn du ESC drückst beendest du das Script

    MFG chris :D

  • Gui Design möglich?

    • chrisatack
    • 19. August 2007 um 13:01

    hiho...

    *up*

    sorry wegen doppelpost aber hat wirklich keiner ne ahnung wie man den gui basteln kann ?

    MFG chris:D

  • MouseOver

    • chrisatack
    • 18. August 2007 um 18:07

    ups ...

    das habe ich leider oben überlesen aber das lässt sich doch ganz leicht mit nem imagesplash machen... also einfach die tooltips ersetzten und schon hast dus...

    MFG chris:D

  • MouseOver

    • chrisatack
    • 18. August 2007 um 10:55

    Hi ...

    Habe mir auch mal nen art Mousovertooltip gebastelt...
    vieleicht gefällt er dir ja...

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

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

    $wintittel = 'AForm1'

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("AForm1", 152, 152, 193, 115)
    $Checkbox1 = GUICtrlCreateCheckbox("ACheckbox1", 10, 20, 81, 31)
    $Checkbox2 = GUICtrlCreateCheckbox("ACheckbox2", 10, 60, 81, 21)
    $Button1 = GUICtrlCreateButton("exit", 10, 100, 61, 31, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Exit

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

    EndSwitch
    _Tooltip()
    Sleep(10)
    WEnd

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


    Func _MouseOver($_mo_x, $_mo_y, $_mo_width, $_mo_height)
    If WinActive($wintittel) = 1 Then ; WICHTIG!!!!! NUR WENN DAS FENSTER AKTIV IST MOUSOVER PRÜFEN
    $_mo_pos = GUIGetCursorInfo()
    If ($_mo_pos[0] > $_mo_x) and ($_mo_pos[0] < $_mo_x + $_mo_width) and ($_mo_pos[1] > $_mo_y) and ($_mo_pos[1] < $_mo_y + $_mo_height) Then
    Return 1
    Else
    Return 0
    EndIf
    EndIf
    EndFunc

    Func _Tooltip()
    $tooltip_sleep = '50'

    ;Spieler1-----------------------------------------------------------------------------
    If _MouseOver(10, 20, 81, 31) = 1 Then
    Do
    ToolTip ("1 checkbox",Default,Default,'Tooltip',1)
    Sleep($tooltip_sleep)
    Until _MouseOver(10, 20, 81, 31) = 0
    ToolTip('')
    EndIf

    ;Name2-----------------------------------------------------------------------------
    If _MouseOver(10, 60, 81, 21) = 1 Then
    Do
    ToolTip ("2 checkbox",Default,Default,'Tooltip',1)
    Sleep($tooltip_sleep)
    Until _MouseOver(10, 60, 81, 21) = 0
    ToolTip('')
    EndIf

    ;Name3-----------------------------------------------------------------------------
    If _MouseOver(10, 100, 61, 31) = 1 Then
    Do
    ToolTip ("exit",Default,Default,'Tooltip',1)
    Sleep($tooltip_sleep)
    Until _MouseOver(10, 100, 61, 31) = 0
    ToolTip('')
    EndIf
    EndFunc

    [/autoit]

    MFG chris :D

  • http-Zugriffe (Websites aufrufen, Cookies?)

    • chrisatack
    • 18. August 2007 um 09:43

    Moin..

    Zitat

    soweit ich weiß, dient die IE.au3 zur fernsteuerung eben des IE, sprich öffnet ihn als sichtbares Interface und erledigt dann aufgaben über diesen,oder?

    das ist richtig ^^ nur gibt es jetzt nen trick hierbei... du kannst das fenster verstecken^^

    [autoit]

    $fenster1 = _IECreate('www.google.de',0,1,1); _iecreate(Seite,0=vorhandenesFenster,1=sichtbar,1=loadwait)
    $quelltext = _IEBodyReadHTML($fenster1)
    MsgBox(0,'Quelltext der Google seite',$quelltext)

    [/autoit]

    Hoffe das das richtig ist ^^ MFG chris:D

  • Gui Design möglich?

    • chrisatack
    • 17. August 2007 um 00:20

    HI

    Wollte mal Fragen ob es möglich ist diesen Gui hier zu basteln..
    [Blockierte Grafik: http://img521.imageshack.us/img521/9194/bild1eh6.jpg]
    Wobei dann weiße Hintergrundfarbe der Desktop sein sollte (weiß also druchsichtig)
    Habe hier im Forum schon gesucht aber ich wette das ich nicht den richtigen suchbegriff eingegeben haben....

    Schonmal vielen Dank für antworten

    MFG chris:D

  • Alle dateien auf einem Laufwerk suchen

    • chrisatack
    • 9. August 2007 um 13:40

    Moin

    Nein leider noch nicht wirklich...?(
    Mein jetztiges problem liegt darin eine Suchfunktion in einer Liste ähnlich der suchfunktion in Winamp wenn man "J" drückt zu kontruieren.:P d.h.

    Habe hier z.B "sende" eigegeben... jetzt soll die liste während ich das eingebe schon durchsucht werden
    wenn icherst "se" eingegeben habe sollenalle wörter die se enthalten angezeigt werden und die anderen nicht ^^
    und alle die sachen die sende nicht enthalten sollen aus der liste entfert werden.
    d.h. das inputfeld muss auf tastendrücke regieren und dann die liste duchsuchen...
    Halt genau so wie die Winamp funktion.... (wenn man "j" drückt )
    [Blockierte Grafik: http://img160.imageshack.us/img160/5246/bild1tg4.png]

    So jetzt weißt du wo ich hänge ^^ bessergesagt ich habe noch gar keinen richtigen anfang dazu gefunden^^ Bin noch nicht so lange dabei mit Autoit zu basteln ^^.
    Aber ich denke mal das das wenns fertig wird nen verdammt nützliches tool wird...

    Hier ist die test.txt wo der inhalt der doc dateinen drinne ist.

    EDIT:
    Die Einträge in der test.txt sind ja mit Pfad angeordnet. In der liste würde dies aber nur stören deshalb habe ich sie entfernt.... ca. so

    Spoiler anzeigen
    [autoit]


    _FileReadToArray ('test.txt',$found_A)
    ;################################################################################## Verzeichnisse entfernen
    Global $found_B[1]
    $i='0'
    Do
    $i = $i +1
    $teilen1 = StringSplit ($found_A[$i],'\')
    ;_ArrayDisplay ($teilen1)
    _ArrayAdd ($found_B,$teilen1[$teilen1[0]])
    ;_ArrayDisplay ($found_B)
    Until $i == $found_A[0]
    $found_B[0] = UBound($found_B)-1
    ;_ArrayDisplay ($found_B)
    ;################################################################################## / Verzeichnisse entfernen
    ;################################################################################## Für Liste Fertig machen
    $i='0'
    $List_inhalt =''
    Do
    $i = $i +1
    $List_inhalt = $List_inhalt&$found_b[$i]&'|'
    Until $i == $found_b[0]
    ;MsgBox (0,"",$List_inhalt)
    ;################################################################################## / Für Liste Fertig machen

    [/autoit]

    So Problem ist nur das wenn ich die datei jetzt öffnen will fehlt mir ja der pfad... wie mache ich das am besten das in der liste nur die *.doc stehen aber im array noch der PFAD\*.doc vorhanden ist?

    MFG chris:D

  • jetzt aber wirklich

    • chrisatack
    • 8. August 2007 um 20:28

    Moin..

    Habt ihr schon jemanden für Graphische Sachen bin recht gut in Jasc Paint Shop (ähnlich Photoshop) oder jemanden der den Gui bastelt? würde sonst dabei meine Hilfe anbieten... Autoit kannn ich an sonsten auch ... bin halt nur nicht Profi^^ würde mich nur gerne bei eurem Projekt beteiligen...

    MFG chrs :D

    PS: ICQ und Skype habe ich...

  • Alle dateien auf einem Laufwerk suchen

    • chrisatack
    • 8. August 2007 um 19:20

    verstanden habe ichs schon nur das alle Versuche die ich gestartet habe nicht geklappt haben... aber du wirst lachen so ähnlich hatte ich es schon getestet^^
    Manchmal denkt man einfach nicht weiter.... :P

    Vielen dank nochmal^^

    MFG chris :D

    PS: hänge aber schon wieder am nächsten Problem... omg aber werde es erst mal alleine versuchen...

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™