Beiträge von TheLuBu

  • POST mitgeben

    Probiers mal so

    Spoiler anzeigen
    [autoit]

    #include <WinHTTP.au3>

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

    $username="user"
    $password="pass"

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

    $post = "os_username=" & $username&"&os_password="&$password&"&login=Anmelden&os_destination=%2Fhomepage.action"
    $hw_open = _WinHttpOpen("Teest")
    $hw_connect = _WinHttpConnect($hw_open, "wiki.inserve.local")
    $h_openRequest = _WinHttpOpenRequest($hw_connect,"POST", "/dologin.action","HTTP/1.1")
    _WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded"& @CRLF, $post)
    _WinHttpReceiveResponse($h_openRequest)

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

    Local $date=""
    Do
    $date&=_WinHttpReadData($h_openRequest)
    Until @error

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

    msgbox(0,"",$date)

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

    _WinHttpCloseHandle($h_openRequest)
    _WinHttpCloseHandle($hw_connect)
    _WinHttpCloseHandle($hw_open)

    [/autoit]

  • POST mitgeben

    Habe es bei einer Seite von mir genutzt, so hat es geklappt.
    Habe die Adresse mit http Live Headers ausgelesen (Firefox Addon)

    [autoit]

    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "/login.php", "HTTP/1.1")
    _WinHttpSendRequest($hRequest, "Content-Type: application/x-www-form-urlencoded" & @CRLF, "loginName=" & $User & "&loginPwd=" &$password & "&btnLogin=Anmelden")

    [/autoit]

  • Mehrer Arrays zu einem zweidimensionalen Array kombinieren

    Du könntest auch die Anzahl der Items im Array zählen und ein neues Array erstellen und dieses dann befüllen

    Spoiler anzeigen
    [autoit]

    Local $Array1 [10]
    Local $Array2 [17]
    Local $Array3 [18]
    Local $Array4 [12]
    Local $Array5 [120]
    Local $Array6 [18]

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

    Local $biggest = 0

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

    If UBound($Array1) > $biggest Then $biggest = UBound($Array1)
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $biggest = ' & $biggest & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    If UBound($Array2) > $biggest Then $biggest = UBound($Array2)
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $biggest = ' & $biggest & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    If UBound($Array3) > $biggest Then $biggest = UBound($Array3)
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $biggest = ' & $biggest & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    If UBound($Array4) > $biggest Then $biggest = UBound($Array4)
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $biggest = ' & $biggest & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    If UBound($Array5) > $biggest Then $biggest = UBound($Array5)
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $biggest = ' & $biggest & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    If UBound($Array6) > $biggest Then $biggest = UBound($Array6)
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $biggest = ' & $biggest & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

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

    Global $gesamtarray[$biggest][6]

    [/autoit]

  • Zeit & Datum mit Zeit & Datum vergleichen in 2 verschiedenen Formaten.

    Sollte funktionieren ;)

    Spoiler anzeigen
    [autoit]

    #include <Date.au3>

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

    $String = "8:47:03 AM - 02/28/2012"

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

    _Umwandlung($String)

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

    Func _Umwandlung($String)
    If StringInStr($String, "PM") Then
    $add = 12
    Else
    $add = 0
    EndIf
    $Split = StringSplit($String, " ")
    If StringLen($Split[1]) = 7 Then
    $Time = 0 & $Split[1]
    Else
    $Time = $Split[1]
    EndIf
    $Datesplit = StringSplit($Split[$Split[0]], "/")
    $Date = $Datesplit[3] & "/" & $Datesplit[1] & "/" & $Datesplit[2]
    $Dateadd = _DateAdd("h", $add, $Date & " " & $Time)
    If _DateDiff("s", _NowCalc(), $Dateadd) <= 0 Then Return True
    Return False
    EndFunc ;==>_Umwandlung

    [/autoit]

  • Script für Vorschau/Anzeige/Übersicht von Bildern

    Das hier funktioniert bei mir

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <GUIListBox.au3>
    #include <WindowsConstants.au3>
    #include <File.au3>
    #include <GuiListView.au3>
    #include <GuiImageList.au3>
    #include <GDIPlus.au3>
    #include <ScreenCapture.au3>
    #include <StructureConstants.au3>
    #include <array.au3>
    #include <GuiComboBox.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 886, 644, 188, 117)
    $filemenu = GUICtrlCreateMenu ("&Programm")
    $fileitem1 = GUICtrlCreateMenuItem("Start", $filemenu)
    $fileitem2 = GUICtrlCreateMenuItem("Einstellungen", $filemenu)
    GUICtrlCreateMenuItem("", $filemenu, 2)
    $fileitem3 = GUICtrlCreateMenuItem("Beenden", $filemenu)
    $Button1 = GUICtrlCreateButton("Aktualisieren", 64, 24, 273, 41, $WS_GROUP)
    $ListBox = GUICtrlCreateList("", 24, 168, 225, 406, BitOR($CBS_SORT, $GUI_SS_DEFAULT_COMBO))
    $label = GUICtrlCreateGroup("PC-Screenshot", 270, 148, 610, 436)
    $pic = GUICtrlCreatePic("", 300, 168, 561, 409)
    $hWndListBox = GUICtrlGetHandle($ListBox)

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

    GUISetState()
    #EndRegion ### END Koda GUI section ###

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

    $Form2 = GUICreate("Form2", 300,300,188,117)
    GUICtrlSetState(-1, $GUI_DISABLE)

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

    $LastSel = ""

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    ;$sPath = FileSelectFolder("Bitte Pfad aussuchen", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", 2, @ScriptDir, $Form1) ;evtl. 2 mit 0 ersetzen
    $sPath = "Pfad zu den jpges"
    $Files = _FileListToArray($sPath, "*.jpg", 1)
    For $i = 1 To $Files[0]

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

    GUICtrlSetData($Listbox, $Files[$i] )
    Next

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

    Case $fileitem2
    GUISetState(@SW_SHOW, $Form2)
    Case $ListBox
    $txt = _GUICtrlListBox_GetText($ListBox, _GUICtrlListBox_GetCurSel($ListBox))
    GUICtrlSetImage($pic, $sPath & "\" & $txt)
    EndSwitch
    WEnd

    [/autoit]

    Zum PC Namen:

    Du kannst die Desktopfotos ja direkt als Namen Speichern, also z.B "Raum nr6.jpg" und bei der Anzeige der Namen dann einfach mit Stringreplace das .jpg durch "" ersetzen

  • Seiten durchsuchen (Webcrawler)

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ListViewConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiListView.au3>
    Opt("TrayIconDebug", 1)
    Global $sitearray[1]
    $Form1 = GUICreate("Webcrawler", 617, 443, 192, 124)
    $urlfront = GUICtrlCreateCombo("http://", 16, 16, 80, 21)
    GUICtrlSetData(-1, "http://www.", "http://") ; add other item snd set a new default
    $Urlmid = GUICtrlCreateInput("365psd.com", 96, 16, 185, 21)
    $searchfor = GUICtrlCreateInput("iPhone Music Player", 16, 40, 265, 21)
    $ListView1 = GUICtrlCreateListView("Url", 8, 72, 305, 361)
    _GUICtrlListView_SetColumnWidth($ListView1, 0, 300)
    $Button1 = GUICtrlCreateButton("Start", 408, 24, 185, 49, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Stop", 408, 88, 185, 49, $WS_GROUP)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    ReDim $sitearray[1]
    $Url = GUICtrlRead($Urlmid)
    _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1))
    _Crawlsite(GUICtrlRead($urlfront)&GUICtrlRead($Urlmid), GUICtrlRead($searchfor))
    EndSwitch
    WEnd

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

    Func _Crawlsite($Urltolookin, $search)
    $read = BinaryToString(InetRead($Urltolookin))
    If GUIGetMsg() = $Button2 Then Return 0
    If StringInStr($read, $search) <> 0 And StringInStr($Urltolookin, "/'/") = 0 Then
    _GUICtrlListView_AddItem($ListView1, $Urltolookin)
    EndIf
    $test = StringRegExp($read, "\b(([\w-]+://?|www[.])[^\s()<>]+(?:\([\w\d]+\)|([^[:punct:]\s]|/)))", 3)
    If @error Then Return 1
    For $i = 1 To UBound($test) - 1
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $i = ' & $i & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
    If GUIGetMsg() = $Button2 Then Return 0
    If StringInStr($test[$i], $Url) <> 0 And StringInStr($test[$i], "register") = 0 And StringInStr($test[$i], "login") = 0 Then
    If _ArraySearch($sitearray, $test[$i]) = -1 Then
    _ArrayAdd($sitearray, $test[$i])
    $Show = _Crawlsite($test[$i], $search)
    If $Show = 0 Then ExitLoop
    EndIf
    EndIf
    Next
    EndFunc ;==>_Crawlsite

    [/autoit]

  • Seiten durchsuchen (Webcrawler)

    Jein ;)

    Iphone Music Player hab ich einfach so genommen, weil ichs auf der Startseite gesehen habe.
    Es ist aber auch auf den anderen Seiten, da das Wort im Footer steht.

    Es wird immer das ganze Wort gesucht, was eingegeben wird, auch "Iphone Music Player" wird komplett gesucht, Wenn auf einer Seite "Iphone Music" stehen würde, würde es nicht gefunden.

  • Seiten durchsuchen (Webcrawler)

    Damit gehts, ist wohl auf deine Beispielseite getrimmt, weiß nicht ob es bei anderen Seiten funktioniert ;)

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ListViewConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiListView.au3>
    Opt("TrayIconDebug", 1)
    Global $sitearray[1]
    $Form1 = GUICreate("Webcrawler", 617, 443, 192, 124)
    $Url = GUICtrlCreateInput("http://365psd.com/", 16, 16, 265, 21)
    $searchfor = GUICtrlCreateInput("iPhone Music Player", 16, 40, 265, 21)
    $ListView1 = GUICtrlCreateListView("Url", 8, 72, 305, 361)
    _GUICtrlListView_SetColumnWidth($ListView1, 0, 300)
    $Button1 = GUICtrlCreateButton("Start", 408, 24, 185, 49, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Stop", 408, 88, 185, 49, $WS_GROUP)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    ReDim $ioArray[1], $sitearray[1]
    _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1))
    _Crawlsite(GUICtrlRead($Url), GUICtrlRead($searchfor))
    EndSwitch
    WEnd

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

    Func _Crawlsite($Urltolookin, $search)
    $read = BinaryToString(InetRead($Urltolookin))
    If GUIGetMsg() = $Button2 Then Return 0
    If StringInStr($read, $search) <> 0 And StringInStr($Urltolookin, "/'/") = 0 Then
    _GUICtrlListView_AddItem($ListView1, $Urltolookin)
    EndIf
    $test = StringRegExp($read, "\b(([\w-]+://?|www[.])[^\s()<>]+(?:\([\w\d]+\)|([^[:punct:]\s]|/)))", 3)
    If @error Then Return 1
    For $i = 1 To UBound($test) - 1
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $i = ' & $i & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
    If GUIGetMsg() = $Button2 Then Return 0
    If StringInStr($test[$i], $Url) <> 0 And StringInStr($test[$i], "register") = 0 And StringInStr($test[$i], "login") = 0 Then
    If _ArraySearch($sitearray, $test[$i]) = -1 Then
    _ArrayAdd($sitearray, $test[$i])
    $Show = _Crawlsite($test[$i], $search)
    If $Show = 0 Then ExitLoop
    EndIf
    EndIf
    Next
    EndFunc ;==>_Crawlsite

    [/autoit]

  • GUICtrlSetImage Problem(e)

    Jein, ^^

    jedes Control braucht braucht eine eindeutige ID um es ansprechen zu können. Diese wird aber beim erstellen des Controls an deine Variable gebunden.
    Bei

    [autoit]

    $Variable = GUICtrlCreatePic(@scriptdir&"\sys\grau.jpg",$x,$y,20,20)

    [/autoit]

    wird die ID des Controls gespeichert, also kannst du mit

    [autoit]

    $msg=GUICtrlSetImage($Variable,@scriptdir&"\sys\"&$color&".jpg")

    [/autoit]

    darauf zugreifen. Es wird keine zusätzliche ID benötigt