Beiträge von Douky

  • Textstelle aus einer Webseite in GUI laden

    Hier mal ein ganz einfach gehaltenes Script was den Haftungsausschluss von Autoit.de in einem Eingabefeld (Edit) darstellt.

    Spoiler anzeigen
    [autoit]

    #include <inet.au3>
    #include <string.au3>
    #include <array.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Autoit.de Haftungsausschluss Reader!", 615, 438, 192, 124)
    $Edit1 = GUICtrlCreateEdit("", 8, 8, 601, 393)
    $Button1 = GUICtrlCreateButton('Der "go" Button', 8, 408, 603, 25)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

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

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

    Case $Button1
    $quelltext = BinaryToString(InetRead("http://autoit.de/index.php?page=LegalNotice",1),4)
    $haftungsausschuss = _StringBetween($quelltext,"Haftungsausschluss:","vor.")
    GUICtrlSetData($Edit1,"Haftungsausschluss:" & $haftungsausschuss[0] & "vor.")
    ;MsgBox(0,"Autoit.de Haftungsausschluss", "Haftungsausschluss:" & $haftungsausschuss[0] & "vor.")
    EndSwitch
    WEnd

    [/autoit]

    Wenn du Fragen zu diesem Script hast kann ich oder auch sehr viele andere aus diesem Forum sie dir beantworten.
    lg

  • Inhalt von Inputboxen in Webseite eintragen

    Heyho,

    als Firefox nutzer habe ich, mit hilfe der FF.au3, mal ein kleines noch stark verbesserungswürdiges und erweiterbares Beispiel gebastelt. ;)
    Funktioniert aber soweit für Youtube.

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <FF.au3>
    #Region ### START Koda GUI section ### Form=
    $Form_Youtube = GUICreate("Youtube Login", 254, 103, 192, 124)
    $Button1 = GUICtrlCreateButton("Youtube Login", 8, 72, 235, 25)
    $Label1 = GUICtrlCreateLabel("Username:", 16, 8, 79, 20)
    GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
    $Label2 = GUICtrlCreateLabel("Passwort:", 16, 40, 71, 20)
    GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
    $Input_user = GUICtrlCreateInput("", 104, 8, 137, 21)
    $Input_pw = GUICtrlCreateInput("", 104, 40, 137, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD))
    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
    $username = GUICtrlRead($Input_user)
    $pw = GUICtrlRead($Input_pw)
    _FFStart("http://www.youtube.com/account")
    If _FFSearch("Abmelden") Then
    ;$youtube_name = _FFXpath("//*[@id='masthead-utility']/button/span", "", 13)
    ;_FFOpenURL("http://www.youtube.com/user/" & $youtube_name)
    _FFOpenURL("http://www.youtube.com/account")
    Else
    _FFSetValue($username, "Email", "name")
    _FFSetValue($pw, "Passwd", "name")
    _FFFormSubmit("gaia_loginform", "id")

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

    If _FFSearch("Geben Sie die Buchstaben aus dem oben angezeigten Bild ein.") Then
    MsgBox(0, "Error", "Captcha eingabe erforderlich!")
    _FFQuit()
    Exit
    EndIf
    If _FFSearch("Der eingegebene Benutzername oder das Passwort ist falsch.") Then
    MsgBox(0, "Error", "Falsche Benutzerdaten eingetragen.!")
    _FFQuit()
    Exit
    EndIf
    _FFOpenURL("http://www.youtube.com/account")
    EndIf
    EndSwitch
    WEnd

    [/autoit]


    Hinweis: Da ich jetzt nicht in die AGBs von Youtube geschaut habe, kann ich dir aber leider nicht sagen ob die solche Automatisierung überhaupt erlauben.

  • FTP upload kappt Internetverbindungen.

    Danke erstma für eure antworten.
    Ich habe mir das bisher wie gesagt auch noch nicht erklären können und habe eine andere Fehlerquelle vermutet.

    Zitat von Alina

    Ist der Router und der PC richtig eingestellt?


    Was muss ich bwz man den einstellen damit er die Verbindungen zu allen Lan angebundenen geräte trennt wenn man eine FTP verbindung aufbaut?^^
    Also ich weiß nicht was man da einstellen kann damit sowas überhaupt passiert.
    In anderen Netzwerken funktioniert das Script auch einwandfrei ohne Probleme. Halt nur bei diesem Kollegen bringt es alles durcheinander.

    Und im restlichen Script wird auch nur ein Screenshoot gemacht und das Bild halt abgespeichert. Naja und die Upload Funktion habt ihr ja ;)
    Was kann man da den machen?
    Welche Einstellungen soll ich überprüfen?
    *langsam daran verzweifel* ;( :wacko:

    Edit:
    Also wie gesagt, das Script funktioniert auf dem Rechner. Ein Bild wird gemacht, hochgeladen und Fertig. Problem ist ebend nur das fast alle andren Rechner dann aus'm Netz fliegen und bleiben bis dieser Rechner vom netz getrennt wird.

  • FTP upload kappt Internetverbindungen.

    Hallo,

    ich habe ein ganz dubioses Problem. Ich habe ein kleines Programm geschrieben was von einem bestimmten Programm alle 10 Minuten 1 Screenshoot macht und diesen dann auf einen FTP server Hoch läd. (Ich lasse das Script vom Windows Task Planer starten)
    Das funktioniert auch alles eigentlich ohne Probleme. Jetzt komme ich zu dem Problem. Jedes mal nachdem der Upload beendet wurde, werden sämmtliche Kabelgebunden rechner von dem Fritz avm vom Internet gekappt. Alle W-lan angebundenden Rechner und der Rechner auf dem mein Script läuft sind weiterhin online. Erst nachedem ich den Rechner auf dem das Script läuft vom Netztwerk trenne und wieder verbinde, dann Gibts für die anderen wieder Internet. Ich kann mir nicht erklären Woran das liegt. Auf den Rechner laufen meines wissen nach überall XP.
    Hier mein Uploadscript.

    [autoit]

    Func upload($dateiname)
    $server = 'server'
    $username = 'username'
    $pass = 'pw'
    ProgressOn("Ftp-Upload", "Lade Bild hoch")
    $Open = _FTP_Open('MyFTP Control')
    $Conn = _FTP_Connect($Open, $server, $username, $pass, 1) ; passiv mode und port 21
    $upload = _FTP_ProgressUpload($Conn, $dateiname, "pics/screen.jpg", "updateprogress")
    ;MsgBox(0, "", "Debug-Info:" & @LF & $upload & @LF & @error)
    ProgressOff()
    $Ftpc = _FTP_Close($Open)
    EndFunc ;==>upload

    [/autoit]

    Genutzs Include häng ich dran.

  • Screenshoot rahmen abschneiden

    danke euch,
    habs jetzt so gemacht:

    [autoit]

    Func _ScreenCapture_CaptureOwnWnd($sPath, $hWnd)
    $Titel = WinGetTitle($hWnd)
    $Pos = WinGetPos($Titel)
    _ScreenCapture_Capture($sPath, $Pos[0] + 8, $Pos[1] + 8, ($Pos[2] - $Pos[0]) - 24, ($Pos[3] + $Pos[1]) -8)
    EndFunc ;==>_ScreenCapture_CaptureOwnWnd

    [/autoit]

  • Medion Akoya Laptop - "PC Beep" abstellen - Wie?

    Da sich ein entsprechender Regler in der Lautstärkeregelung befindet, kannst du es ja mal mit dieser Funktion von Thorsten Meger (Xenobiologist) Testen.

    Spoiler anzeigen
    [autoit]

    ;~ $re = _isMute(1000)
    ;~ If @error Then ConsoleWrite(@error & @CRLF)
    ;~ ConsoleWrite($re & @CRLF)
    ;===============================================================================
    ;
    ; Function Name: _isMute
    ; Description:: Check for mute sound
    ; Parameter(s): ControlID
    ; Voulme = 1000
    ; Wave = 2000
    ; SW-Synthesizer = 3000
    ; CD-Player = 4000
    ; Mikrofon = 5000
    ; Line-In = 6000
    ; Requirement(s): ---
    ; Return Value(s): 0 = not muted, 1 = muted, -1 = timeout, -2 = ControlID not found
    ; Author(s): Thorsten Meger (Xenobiologist)
    ;
    ;===============================================================================

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

    Func _isMute($opt = 1000)
    Local $retVal = 0, $ex = False
    If Not WinExists('[CLASS:Volume Control]') Then
    Run('sndvol32', '', @SW_HIDE)
    $ex = True
    EndIf
    If WinWait('[CLASS:Volume Control]', '', 2) = 0 Then Return -1
    $retVal = ControlCommand('[CLASS:Volume Control]', '', $opt, 'isChecked')
    If @error Then Return -2
    If $ex = True Then WinClose('[CLASS:Volume Control]')
    Return $retVal
    EndFunc ;==>_isMute

    [/autoit]


    Musst nur noch die ControlID rausfinden.
    Wäre zwar nicht unbedingt die schönste Lösung, aber wenn du das Script dann in Autostart packst Mutet der bei jedem Systemstart diesen Regler.

    Wie gesagt wäre erstma nur so eine Zwischenlösung, aber könnte Funktionieren ;)

    lg

    Edit: Ach mist, diese Funktion überprüft nur ob Mute gesetzt ist. Aber evtl. kannst du sie ja ein wenig umschreiben.

  • StringRegExp TCP/IP-Adresse inkl. Port Patter, Need help

    So sieht mein Text aus ausdem ich gerne geweils Ip und Port als Ganzes haben würde.

    Beispiel Text

    210.6.192.22:9415 Nein 4 5.27 Sek. Hong Kong 6% 15:14
    206.51.7.146:80 Nein 3 34.04 Sek. United States 72% 15:13
    202.159.20.29:8080 Nein 3? 12.79 Sek. Indonesia 84% 15:13
    188.136.170.134:8080 Ja 3? 31.72 Sek. Iran, Islamic Republic of 97% 15:13
    122.183.81.227:80 Nein 4? 9.73 Sek. India 83% 15:13
    200.129.180.61:3128 Nein 3? 5.81 Sek. Brazil 85% 15:12
    24.30.46.180:8118 Nein 4 66.79 Sek. United States 91% 15:12
    219.142.62.13:8080 Ja 1 41.67 Sek. China 63% 15:12
    203.124.152.164:80 Ja 3 48.57 Sek. India 79% 15:11
    189.115.161.220:3128 Nein 4? 49.38 Sek. Brazil 91% 15:11
    110.139.96.115:3128 Nein 4? 22.08 Sek. Indonesia 53% 15:11
    220.133.73.64:80 Nein 4? 4.93 Sek. Taiwan 97% 15:11
    78.111.8.1:80 Ja 3? 12.87 Sek. Iran, Islamic Republic of 93% 15:11
    67.19.20.162:3128 Nein 5? 19.12 Sek. United States 89% 15:11
    75.72.186.79:8080 Nein 4 53.43 Sek. United States 62% 15:11
    201.86.213.141:8080 Nein 4? 11.02 Sek. Brazil 86% 15:11
    200.37.186.146:80 Nein 3? 9.74 Sek. Peru 84% 15:11
    187.11.229.55:80 Nein 4? 15.56 Sek. Brazil 69% 15:11
    189.14.234.26:8080 Nein 3? 18.95 Sek. Brazil 95% 15:11
    200.220.198.50:8080 Ja 3? 17.02 Sek. Brazil 94% 15:11
    200.220.205.1:8080 Ja 3? 16.02 Sek. Brazil 98% 15:11
    88.250.51.134:8086 Nein 4 58.63 Sek. Turkey 37% 15:11
    218.191.98.19:9415 Nein 3 5.92 Sek. Hong Kong 4% 15:11
    218.207.217.245:80 Nein 3? 11.96 Sek. China 87% 15:11
    190.144.136.242:8080 Nein 5? 0.72 Sek. Colombia 97% 15:11
    213.180.89.165:4432 Nein 3 25.69 Sek. Sweden 20% 15:11
    118.96.8.196:8080 Nein 4? 7.75 Sek. Indonesia 62% 15:10
    118.96.201.146:8080 Nein 4? 6.54 Sek. Indonesia 63% 15:10
    58.147.191.150:3128 Nein 3? 19.17 Sek. Indonesia 99% 15:10
    218.248.240.190:8080 Nein 4? 19.73 Sek. India 81% 15:10
    64.91.172.20:8090 Nein 4 46.61 Sek. United States 6% 15:10
    173.160.74.249:8080 Nein 4 21.65 Sek. United States 84% 15:10
    124.161.63.194:80 Ja 5 57.46 Sek. China 29% 15:10
    120.202.89.142:3128 Nein 3? 14.84 Sek. China 73% 15:10
    202.57.69.84:80 Nein 4 6.22 Sek. Philippines 73% 15:10
    88.87.95.91:8080 Nein 4 33.19 Sek. Russian Federation 46% 15:10
    200.196.234.30:8080 Ja 3? 34.64 Sek. Brazil 83% 15:10
    118.96.148.72:8080 Nein 3? 11.55 Sek. Indonesia 98% 15:10
    190.201.174.110:8080 Nein 4? 1.49 Sek. Venezuela 96% 15:10
    190.144.128.154:8080 Nein 3? 5.53 Sek. Colombia 100% 15:10
    89.187.142.113:3128 Nein 3? 24.87 Sek. Czech Republic 94% 15:10
    110.5.98.162:80 Nein 3? 13.65 Sek. Indonesia 98% 15:10
    200.143.204.003:3128 Ja 3? 79.94 Sek. Brazil 84% 15:10
    123.127.163.27:8080 Nein 3? 40.69 Sek. China 67% 15:10
    219.139.158.60:8080 Nein 3? 16.31 Sek. China 99% 15:10
    211.162.70.66:3128 Nein 5? 4.81 Sek. China 88% 15:10
    200.55.223.243:8080 Nein 3 56.26 Sek. Chile 83% 15:10
    92.247.12.242:8080 Nein 3 45.97 Sek. Bulgaria 59% 15:10
    69.59.89.122:8080 Nein 4 32.5 Sek. United States 84% 15:10
    89.105.123.18:80 Nein


    Also nicht Adresse und Port einzeln sondern immer zusammen als Ganzes.

  • StringRegExp TCP/IP-Adresse inkl. Port Patter, Need help

    Hallo liebe Community,

    ich stehe vor einem kleinem Problem was ich nicht gelösst bekomme.
    Ich habe 2 Platter.
    Zum einen Für die bestimmung von gültigen TCP/IP-Adressen und zum anderen für den Port.

    TCP/IP-Adresse Patter
    Code
    ^((\d|\d\d|[0-1]\d\d|2[0-4]\d|25[0-5])\.(\d|\d\d|[0-1]\d\d|2[0-4]\d|25[0-5])\.(\d|\d\d|[0-1]\d\d|2[0-4]\d|25[0-5])\.(\d|\d\d|[0-1]\d\d|2[0-4]\d|25[0-5]))$
    Port Patter
    Code
    ^(0|([1-9]\d{0,3}|[1-5]\d{4}|[6][0-5][0-5]([0-2]\d|[3][0-5])))$


    Wie füge ich diese Beiden Patter zusammen sodass ich folgende Adress typen finde?
    Also der : müsste da noch irgendwie zwischen.

    Adress Beispiele

    210.6.192.22:9415
    24.30.46.180:8118
    219.142.62.13:8080
    203.124.152.164:80


    Danke schonmal
    Lg

  • Löffelsprache Übersetzer

    Hey leute,

    ich möchte hier gerne meinen "spoon-translator" vorstellen^^
    Ich weiß ja nicht ob ihr das noch/schon kennt, aber es handelt sich hier um eine art Geheimsprache.

    Bei zeiten werde ich noch einen Rückübersetzer hinzufügen ;)
    Bis dahin
    Vielewiel spalewaß dalewamilewit! (Viel spaß damit!)

  • Datei teilen

    Zitat von TheShadowAE

    Schöner geht es ohne viele Stringfunktionen: mit Filegetsize rechnest du aus wie viele Elemente du brauchst und mit einer for-schleife liest du die Anzahl aus, die du pro Stück haben willst, FileRead($handle, 1000) liest 1000 bytes aus

    Dabei ist aber darauf zu achten wie du eine Datei öffnest. Zitat aus der Hilfe:

    Zitat von http://translation.autoit.de/onlinehilfe/functions/FileRead.htm

    Eine Datei kann binär (byteweise) ausgelesen werden wenn FileOpen mit dem Binärflag aufgerufen wird. In diesem Fall gibt count die Anzahl der Bytes an, nicht die der Zeichen.

    Zitat von Silverlight

    Und wie ließt er die nächsten 1000 aus?


    Das müsste mit

    [autoit]

    FileGetPos

    [/autoit]


    und

    [autoit]

    FileSetPos

    [/autoit]


    Gehen.

    Zitat von Silverlight

    Kann man irgendwie in StringFormat einstellt das jede Zahl aufgerundet wird?


    Runden macht man üblicherweise mit

    [autoit]

    Round

    [/autoit]

    Lg

  • Datei teilen

    Zitat von Silverlight

    Aber wie sieht das Codemäßig aus?

    Also Codemäßig sieht das dann so aus das du zuerst den "rein kommenden" String in einzelne Zeichen zerlegen musst.
    Dann musst du überprüfen um welche zeichen es sich in dem String handelt.
    Anschliessend musst du halt zählen bzw rechnen wie viele Zeichen insgesammt 2kb(2 * 1024 Bytes) Ergeben.

    Dabei werden dir de String-Funktionen wie z.B.

    [autoit]

    Stringlen
    Stringmid

    [/autoit]


    Sowie die

    [autoit]

    For

    [/autoit]


    Schleife helfen
    Zudem würde ich vergleichsarrays erstellen.
    Viel spaß beim rechnen ;)

    Edit:
    Probier einfach mal ein wenig herrum. Falls es dann noch Probleme damit gibt, poste einfach deinen Lösungsansatz und dir wird geholfen :D

    Lg