Beiträge von McPoldy

  • Bilder auf Imagehoster hochladen

    Ich würde das über den IE machen, der FF wäre zwar auch ohne Probleme möglich, aber wenn ich das Script mal einem Bekannten gebe der keinen FF installiert hat ist das doch immer etwas doof (nix gegen FF alle meine Bekannten wurden auf FF geimpft ;) )

    So mal ein paar Überlegungen wie man vorgehen sollte bzw. was man sich überlegen muss:

    1. Wie über gebe ich die Bilder
    -> Über eine GUI
    -> Über eine Text Datei
    -> Sollen einfach alle Bilder eines Ordners hochbeladen werden

    2. Was mache ich mit der Antwort nach dem Upload
    -> In einer GUI zurück geben
    -> In einer Datei speichern
    -> Welche Links brauche ich eigentlich, gibt ja mehrere zurück

    3. Wie interagiere ich mit dem Benutzer
    -> Status was bereits hochbeladen wurde
    -> Status ob fertig oder nicht
    -> Was passiert grade aktuell

    Ich habe mir den Dienst imagevenue.com angeschaut, man kann ja 5 bzw. 10 Bilder über ein Formular hoch laden, was nicht das Problem ist, und man erhält verschiedene Links, die auch in einfach auszulesen sind. Also im Prinzip eine einfache und vor allem für Lehrzwecke schöne Aufgabe.

  • Do...Until Problem

    Moin

    bei dem Script von limette
    unter until $msg = $Button2 einfach ContinueCase einfügen, das hat zur folge, das die anderen Cases auch noch geprüft werden.

    Wenn Du keine Leerzeile haben möchtest mach aus dem @CRLF ein @LF.

  • Datei von Prem Account bei Rapidshare downloaden

    Zitat von Brick

    Hier legt Autoit offensichtlich irgend einen "Collection" an... die so oft durchlaufen wird, bis die
    ID "ff" ist.. .wieso "ff" ???
    danach sendet er offensichtlich die ID... dachte die währe "Free" bzw. "Premium" ???

    Im Seitenquelltext gibt es zwei Formulare, das erste für die FreeUser und das andere für die PremiumUser, beim ersten Form gibt es ein ID Tag und das heißt "ff", beim zweiten gibt es kein ID Feld.

    Zitat von Brick

    Hier sucht er ein Obj. Name ??? .. das "dlf heißt ??? (downloadfile ??)
    woher bekomm ich diese Info ???

    Hier habe ich einfach mal gewartet bis der Counter abgelaufen war und habe mir dann wieder den Quelltext angeschaut, da gibt es wieder ein Form welches den Namen dlf hat, das Form ist aber erst da wenn der Counter abgelaufen ist.

    Zitat von Brick

    Dann den Direkten Link auslesen... hmm.. ok..und
    der rest klingt plausibel.. datei halt runterladen...

    Wenn dann das Form da ist, dann kann man aus dem Action Tag die direkte Downloadadresse auslesen und benutzen.

    Hoffe das ich das einigermaßen gut erklärt hab :)

  • Datei von Prem Account bei Rapidshare downloaden

    Moin, habe das hier gestern gelesen und mich mal dran gesetzt und mir ein Multidownloader gebastelt für den Free-Account. Den habe ich mal etwas gändert und auf eine Datei umgebastelt.

    Spoiler anzeigen
    [autoit]


    ;Includes
    #include <IE.au3>

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

    ;Variablen
    Global $objIE, $destFolder,$dlLink,$fileName,$Url

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

    ;Zielordner wählen
    $destFolder = 'c:\tmp\testdatei.txt'

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

    ;RapidShare Link
    $dlLink = 'http://rapidshare.com/files/133499342/testdatei.txt.html'

    ;IE einbinden
    $objIE = _IECreate($dlLink,0,1,1,1) ; wenn der IE nicht angezeigt werden soll: _IECreate($dlLink,0,0,1,1)

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

    ;IE Fehler deaktivieren
    _IEErrorNotify (False)

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

    ;Die Form für den Free-Download raussuchen
    $oForms = _IEFormGetCollection ($objIE)
    For $oForm In $oForms
    if $oForm.id = 'ff' Then ExitLoop
    Next
    $oForm.submit

    ;Warten bis der Counter runter gelaufen ist
    Do
    $oForm = _IEGetObjByName($objIE,"dlf")
    Sleep(250)
    Until IsObj($oForm)

    ;Den direkten Link zur Datei auslesen
    $dlLink = $oForm.action

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

    ;Datei runter laden
    InetGet($dlLink,$destFolder,1)

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

    ;IE beenden
    _IEQuit($objIE)

    [/autoit]

    So musst du nur den Pfad und die Datei angeben, der Unterschied bei dem Link und dem direkten Downloadlink sieht so aus:
    Normaler Link:
    http://rapidshare.com/files/133499342/testdatei.txt.html
    Direkter Link (in diesem Fall von dem Telekom Mirror):
    http://rs277dt.rapidshare.com/files/133499342/2893865/testdatei.txt

    Die hintere Zahl (2893865) ändert sich bei jedem Aufruf.

  • DSL Provider

    Also ich bin derzeit bei der Telekom und bin damit eigentlich gut zufrieden, heute wurde mir sogar endlich eine 16.000er ADSL2 Leitung angeboten :) Der Service passt auch, mir wurden ganz am Anfang die Zugangs-Daten nicht zugesendet, ein Anruf und ich habe welche per Telefon bekommen (temporär). Vorher war ich bei 1und1, nur Stress mit den Jungs, für die Hotline richtig Kohle verlangen, die Schuld immer auf die Leitung der Telekom schieben und nichts auf die Reihe bekommen :cursing: Aber auch bei Bekannten von mir, die haben alle paar Monate immer wieder Totalausfall mit 1und1, nun (nach dem 5 mal) hat mein Bekannter die Telekom anrücken lassen (auf seine Kosten) und was kam raus, der Router von 1und1 war hinüber, das habe ich dem netten Herren an der Hotline aber schon nach dem ersten mal gesagt. Da ich aber gerne alles aus einer Hand haben möchte bin ich nun am überlegen ob ich nicht bis Januar warte und mit meinen DSL Anschluss über Unity Media hole, da die dann auch DSL über Kabel in unserem Ort anbieten wollen.

  • Simples Script will nicht funktionieren

    Hm ja, bei mir war es halt so das die ALT Taste immer noch aktiv war :) aber noch ein Tip nebenbei, Du könntest ja immer zwischen zeitlich mal prüfen lassen ob das Spiel noch am laufen ist, und falls nicht das Script automatisch beenden lassen.

    Nur mal so als Idee :)
    [autoit][/autoit] [autoit][/autoit] [autoit]

    ;Tastenkombi setzen
    HotKeySet("^!g","_Ausgabe_ByeBye")
    HotKeySet("^!n","_Ausgabe_Nice")
    HotKeySet("{ESC}","_Exit_Script")

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

    ;Prozessnamen angeben (Prozessname aus Taskmanager entnehmen)
    $Processname = "notepad.exe"

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

    ;Auf Prozesswarten - Warten bis das Spiel gestartet wurde
    Do
    Sleep(250)
    Until ProcessExists($Processname)

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

    ;Prüfintervall starten ob Spiel noch läuft
    AdlibEnable("_Exit_Script",15000)

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

    ;Entlosschleife
    While 1
    ;Ein kleines Sleep um die CPU zu entlasten
    Sleep(200)
    WEnd

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

    ;Ausgabe Funktion
    Func _Ausgabe_ByeBye()
    ;Was gesendet werden soll
    Send("Good Game All{ENTER}")
    EndFunc

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

    ;Ausgabe Funktion
    Func _Ausgabe_Nice()
    ;Was gesendet werden soll
    Send("Nice{ENTER}")
    EndFunc

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

    ;Funktion ob das Spiel noch läuft
    ;ansonsten das Script beenden.
    Func _Exit_Script()
    If Not ProcessExists($Processname) Then Exit
    EndFunc

    [/autoit]

  • Simples Script will nicht funktionieren

    Die Kombi von ALT+g ist etwas unglücklich, bei mir bleibt er dann immer im Menü hängen :( wenn Du vielleicht strg+alt+g nimmst, klappt es bei mir besser:

    [autoit]

    ;Tastenkombi setzen
    HotKeySet("^!g","_Ausgabe")

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

    ;Entlosschleife
    While 1
    ;Ein kleines Sleep um die CPU zu entlasten
    Sleep(200)
    WEnd

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

    ;Ausgabe Funktion
    Func _Ausgabe()
    ;Was gesendet werden soll
    Send("Good Game All{ENTER}")
    ;Script beenden
    Exit
    EndFunc

    [/autoit]

  • Simples Script will nicht funktionieren

    Dein Script startet, wird abgearbeitet, und beendet sich sofort wieder :)

    [autoit]


    HotKeySet ( "!g","ggall")

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

    ;Endlosschleife fehlt
    While 1
    WEnd

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

    Func ggall()
    Sleep(2000)
    Send("Good Game All{ENTER}")
    exit
    EndFunc

    [/autoit]

  • RadioBox?

    Nicht ganz :)

    [autoit]


    $Password = IniRead(@ScriptDir & "\setting.ini","Login Details","Pass","")
    $pfad = IniRead(@ScriptDir & "\setting.ini","Login Deatils","Path","")

    [/autoit]



    Bei Pass = Details
    Bei Path = Deatils

  • Hilfe Virus eingefangen

    Hi,

    hört sich doof an aber am saubersten ist es wenn Du das System neu installierst. Du hat geschrieben, du hättest den Virus entfernt aber er hat dein System geändert, einen Teil hast Du offensichtlich schon gefunden, wer weiß was er noch geändert hat. Das Risiko jetzt einzelne Sachen zu reparieren aber nicht zu wissen was sonst noch geändert wurde wäre mir persönlich zu groß.

  • Gui Fragen

    Zu Frage 2, wenn ich das richtig verstanden habe soll es so eine Art Assistent sein, oder? Falls ja das könnte man z.B. mit Tabs machen, hier ein kleine Beispiel (ja ja nicht schön aber selten ;) :(

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $frmAssistent = GUICreate("Test Assistent", 427, 302, 193, 125, 0)
    $Tab1 = GUICtrlCreateTab(0, -22, 425, 321)
    GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
    $TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
    $Button1 = GUICtrlCreateButton("Weiter", 306, 241, 89, 25, 0)
    $Label1 = GUICtrlCreateLabel("Schritt 1", 10, 9, 72, 24)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    $Label5 = GUICtrlCreateLabel("Beispieltext1", 55, 65, 60, 17)
    $Radio1 = GUICtrlCreateRadio("asdfsadfas", 146, 97, 137, 17)
    $Radio2 = GUICtrlCreateRadio("Radasdfsadfio1", 146, 121, 137, 17)
    $Radio3 = GUICtrlCreateRadio("adfasdfsadf", 146, 145, 137, 17)
    $TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
    $Button2 = GUICtrlCreateButton("Weiter", 306, 241, 89, 25, 0)
    $Label2 = GUICtrlCreateLabel("Schritt 2", 10, 9, 72, 24)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    $Radio4 = GUICtrlCreateRadio("Radadsfsadfasio1", 146, 97, 137, 17)
    $Radio5 = GUICtrlCreateRadio("asass", 146, 121, 137, 17)
    $Radio6 = GUICtrlCreateRadio("adfsadfasd", 146, 145, 137, 17)
    $Label6 = GUICtrlCreateLabel("Beispieltext2", 55, 65, 60, 17)
    $TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
    $Button3 = GUICtrlCreateButton("Weiter", 306, 241, 89, 25, 0)
    $Label3 = GUICtrlCreateLabel("Schritt 3", 10, 9, 72, 24)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    $Radio7 = GUICtrlCreateRadio("asdfsadfasdfa", 146, 97, 137, 17)
    $Radio8 = GUICtrlCreateRadio("asdfsadfas", 146, 121, 137, 17)
    $Radio9 = GUICtrlCreateRadio("wwwewewe", 146, 145, 137, 17)
    $Label7 = GUICtrlCreateLabel("Beispieltext3", 55, 65, 60, 17)
    $TabSheet4 = GUICtrlCreateTabItem("TabSheet4")
    $Button4 = GUICtrlCreateButton("Fertigstellen", 306, 241, 89, 25, 0)
    $Label4 = GUICtrlCreateLabel("Schritt 4", 10, 9, 72, 24)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    $Radio10 = GUICtrlCreateRadio("asdfasdfasdf", 146, 97, 137, 17)
    $Radio11 = GUICtrlCreateRadio("asdfasdf", 146, 121, 137, 17)
    $Radio12 = GUICtrlCreateRadio("dccdddddddddddd", 146, 145, 137, 17)
    $Label8 = GUICtrlCreateLabel("Beispieltext4", 55, 65, 60, 17)
    GUICtrlCreateTabItem("")
    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
    GUICtrlSetState($TabSheet2,$GUI_SHOW)
    Case $Button2
    GUICtrlSetState($TabSheet3,$GUI_SHOW)
    Case $Button3
    GUICtrlSetState($TabSheet4,$GUI_SHOW)
    Case $Button4
    Exit
    EndSwitch
    WEnd

    [/autoit]

  • Zu zweit an einem Projekt online arbeiten

    Hi,

    eine zeitgleiche Bearbeitung von einer Datei ist wohl so nicht möglich, ich würde auch sagen Bugfix hat mit dem SVN schon recht. So kann dein Freund eine Datei ändern und sie per commit auf den Server senden und wenn du in der gleichen Datei was gemacht hast, wird beim senden von deiner Datei gleich gefragt ob du die Daten zusammenführen möchtest. Du kannst, wenn es keine super sensiblen Daten sind, dir ja mal das Code Projekt von Google anschauen, da kann man sich solche SVN Speicherorte einrichten.