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

Beiträge von qon

  • Zippen mit 7zip dll funktioniert nicht?

    • qon
    • 10. Dezember 2007 um 14:16

    Hi Leute,

    ich würde gerne einen einzigen Ordner durch mein Script zippen lassen, aber bei mir Funktioniert das nicht wirklich...

    http://www.autoitscript.com/forum/index.php?showtopic=25984&st=0

    Mit den Sachen hab ichs versucht, also mit der Multiple_Zip.au3,
    allerdings Zippt er immer nur eine Datei, das script scheint sich auch aufzuhängen, weil ich die letzte MSGbox garnicht sehe.

    Hab bisschen gelesen aber finde keine Lösung für mein Problem :(
    Oder gibt es noch einen anderen Weg als 7zip?
    Vielleicht wisst ihr ja was :D

    mfg qon

  • Pfad von Prozess auslesen?

    • qon
    • 9. Dezember 2007 um 16:04

    DANKE DANKE!! :)
    Problem gelöst :P

  • Grundsätzlicher Programmaufbau

    • qon
    • 9. Dezember 2007 um 14:03

    Also, bei manuellen Funktionen musst du dann "Return 1" schreiben, dann gibt sie 1 zurück.
    Du kannst sie natürlich auch 2 zurückgeben lassen, jenachdem was die Funktion festgestellt hat.

    Du musst die Funktion praktisch in eine Variable binden,
    also Beispielsweise

    Spoiler anzeigen
    [autoit]


    $wert1 = Fileexists("c:\programme")
    If $wert1 = 1 Then
    msgbox(0,"Besteht","Der Ordner c:\programme besteht!")
    Else
    msgbox(0,"Besteht nicht","Der Ordner c:\programme besteht nicht!")
    EndIf

    [/autoit]


    Hier eine eigene Funktion ( hat keinen besonderen Sinn :(

    Spoiler anzeigen
    [autoit]


    $func = _myfunc1()
    If $func = 1 Then
    msgbox(0,"ICQ","ICQ war an, wurde nun ausgemacht")
    Else
    msgbox(0,"ICQ","ICQ war garnicht an")
    EndIf

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

    func _myfunc1()
    $pe = processexists("icq.exe")
    If $pe = 1 Then
    processclose("icq.exe")
    Return 1
    Else
    Return 0
    EndIf
    EndFunc
    msgbox(0,"Besteht nicht","Der Ordner c:\programme besteht nicht!")
    EndIf

    [/autoit]

    Ok Huggy's Beispiel ist besser denke ich aber egal :D
    Aber du hast vergessen die Funktion in eine Variable einzubinden :P

    mfg qon

  • Chat Clienten bauen

    • qon
    • 9. Dezember 2007 um 13:44

    Ja, das gleiche ist bei mir ja auch, hab die msgbox gemacht um den Fehler zu sehn.
    die erste Zahl -1 ist der socket und die zweite der @error wert.
    Bei mir funzt es online auch einfach nicht :(

  • Pfad von Prozess auslesen?

    • qon
    • 9. Dezember 2007 um 13:43

    Hi ich bins mal wieder und habe eine neue Frage wozu ich nichts finde :(

    Kann man / wie kann man sich den Pfad anzeigen lassen, den ein laufender prozess hat?
    Also ich habe jetzt zum Beispiel firefox.exe in den prozessen und will wissen, wo die firefox.exe denn nun liegt also in welchem Ordner.
    Ich könnte das natürlich manuell machen und firefox.exe bei "suchen" eingeben, aber das script soll es natürlich schaffen :)
    Bin über jeden Tipp dankbar.

    LG qon

  • Chat Clienten bauen

    • qon
    • 8. Dezember 2007 um 21:23

    Hi,

    danke für deine Antwort! :)
    Bei mir Funktioniert es leider immernoch nicht, also wieder nur per Lan.
    :( Ich werder aber mal weiter schauen da ich denke es liegt an meinem Router ( habe ihn aber richtig konfiguriert! )
    Falls ich irgendwann erfolg haben sollte werde ich bescheid geben!

    mfg qon

  • Netzwerktraffic messen, die Zweite!

    • qon
    • 7. Dezember 2007 um 20:29

    edit: Hä sorry bin verpeilt
    edit2:

    [autoit]


    DllCall("Psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)

    [/autoit]

    leert virtuellen speicher.

    Vielleicht hilft das :)
    in die While damit

    mfG qon

  • Chat Clienten bauen

    • qon
    • 7. Dezember 2007 um 19:57

    Hi,

    bin am verzweifeln, kann es jemand vielleicht bei sich testen? :(
    Dann wäre ich der Lösung ein Stück näher.

    mfG qon

  • Chat Clienten bauen

    • qon
    • 6. Dezember 2007 um 14:44

    Hi,

    ich hab ne Fritzbox, habe Port 6667 UDP und TCP freigegeben auf meine IP ( habe schon oft Ports freigegeben un es funzte immer :) )
    Naja wie gesagt wenn ich es im lan mache geht es :(

    edit: Yoa haste recht mit IRC meinte natürlich Quakenet :)
    edit2: Funktioniert das Script bei dir Per Internet? Also von deinem Rechner zu deinem Rechner ( _getip ) ?

    mfG qon

  • Chat Clienten bauen

    • qon
    • 6. Dezember 2007 um 13:39

    Hi,

    IRC benutzt auch den Port 6667 und irc Funktioniert bei mir ja, an der Firewall liegt's auch nicht und habe gestern schon getestet Port 6667 für TCP freizugeben, allerdings änderte es sich nichts :(
    Trotzdem danke für deinen Tipp.

    mfG qon

  • Chat Clienten bauen

    • qon
    • 5. Dezember 2007 um 23:10

    Hi Leutz,

    ich hatte vor einen Chat Clienten zu bauen,
    die GUI's und alles werden auch denke ich kein Problem sein, allerdings hängts bei mir beim Grundgerüst, hab schon viel gesucht aber nichts gefunden.

    Hier mein Serverscript:

    Spoiler anzeigen
    [autoit]


    #include <file.au3>
    #include <inet.au3>
    $ip = _getip()
    $port = "6667"
    TCPStartUp()
    $MainSocket = TCPListen($ip, $port, 128 )
    If $MainSocket = -1 or @error Then
    msgbox(0,"Error!",$mainsocket & " | " & @error)
    Exit
    EndIf

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

    While 1
    $ConnectedSocket = TCPAccept( $MainSocket)
    If $ConnectedSocket >= 0 Then
    ExitLoop
    EndIf
    Wend
    While 1
    $Message=TCPRecv($ConnectedSocket,128)
    Sleep(25)
    If $Message<>"" Then
    _filewritelog(@scriptdir & "\serverlog.log",$Message)
    TCPsend($ConnectedSocket,"Erhalten: " & $Message)
    EndIf
    WEnd

    [/autoit]

    mein Client:

    Spoiler anzeigen
    [autoit]


    #include <inet.au3>
    $messagewait = 0
    $ip = _getip()
    $port = "6667"
    Hotkeyset("{end}","_isendmessage")

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

    TCPStartUp()
    $MainSocket=TCPConnect($ip, $port)
    If $MainSocket = -1 Then Exit
    msgbox(0,"","connected",1)

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

    func _isendmessage()
    $Message=InputBox("Sending message","Enter the message you wish to send to your computer")
    if @error Then
    msgbox(0,"error","error")
    Exit
    EndIf
    TCPSend($MainSocket,$Message)

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

    do
    $msg = Tcprecv($mainsocket,12 8)
    sleep(20)
    $messagewait = $messagewait + 1
    until $msg <> "" or $messagewait > 25

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

    If $msg = "Erhalten: " & $Message then
    msgbox(0,"Erhalten",$msg)
    Else
    msgbox(0,"NICHT ERHALTEN","Nachricht konnte nicht gesendet werden!")
    EndIf
    $messagewait = 0
    EndFunc

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

    while 1
    sleep(50)
    WEnd

    [/autoit]

    Im Lan Funktioniert das ganze auch, allerdings im internet nicht.
    Egal welche I-Net IP ( oder meine eigene inetip ) ich eingebe es kommt immer Error.
    Habs auch einem Kumpel gegeben da ist das selbe.
    Der Code ist bis jetzt nur für Testzwecke und die Grundfunktionen.
    Wenn da jemand was weiss wäre das geil :)

    mfG qon, und gute nacht :)

  • Ftp upload geht nicht (mit ftp.au3)

    • qon
    • 5. Dezember 2007 um 13:55

    Hi!

    Ich sehe garkein

    [autoit]

    $dllop = DllOpen('wininet.dll')

    [/autoit]

    vor dem FTP Teil und kein

    [autoit]

    DllClose($dllop)

    [/autoit]

    nach dem FTP Upload. Könnte doch gut sein, dass es daran liegt?
    Eine Vermutung :)

    mfG qon

  • Abbruch einer Verbindung feststellen

    • qon
    • 30. November 2007 um 19:00

    Hi, ihr könnt mit dem cmdbefehl netstat ( netstat -n ) schauen welche connections zum pc bestehn.
    Könnt ja rausfinden welche Silkroad ist, und dann so lösen:

    [autoit]


    #include <Constants.au3>
    #include <string.au3>
    Dim $string
    $ip1 = "192.168.0.200"

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

    $foo = Run(@ComSpec & " /c netstat -n", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)

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

    While 1
    $line = StdoutRead($foo)
    If @error Then ExitLoop
    $string = $string & $line
    Wend

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

    msgbox(0,"Rückgabe",$string)

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

    IF (Stringinstr($string,$ip1) <> 0) Then
    msgbox(0,"Bestehend","Die Connection zu der genannten IP besteht")
    Else
    msgbox(0,"Nicht aufgebaut","Die Connection zu der genannten IP besteht nicht")
    EndIf

    [/autoit]
  • Online-Status eines Programm überwachen

    • qon
    • 24. November 2007 um 16:44

    Hi,

    wenn du bei ausfüren -> cmd.exe -> netstat -n eingibst,
    siehst du alle connections zum inet.
    Darunter auch ICQ, Skype, und was sonst noch so alles.
    Kannst ja rausfinden welche davon es sind und dann mit StdoutRead
    schauen ob sie noch existieren oder nicht.

    mfG qon

  • Ich stell mich echt blöd an - IniRead geht net

    • qon
    • 23. November 2007 um 23:32
    [autoit]


    $T = IniRead("C:\Dokumente und Einstellungen\Fabian\Desktop\AutoItDateien\Hilfsdateien\meineini.ini", "AuswahlComboKoordinaten", "AlleX", "Du bist doch echt zu blöd!!!")
    MsgBox(0, "Test", "Ergebnis="&$T)

    [/autoit]

    Ich denke du erkennst den Unterschied :P

    mfg qon

  • mousecklick

    • qon
    • 23. November 2007 um 17:41

    Sicher, dass du nicht die falschen Koordinaten eingegeben hast?
    Die Mouseclicks sehen mir in Ordnung aus.
    Vielleicht ein Schreibfehler?
    Oder du hast wirklich Controlclick Koordinaten mit den normalen verwechselt.
    Du könntest ja mal Winamp und ICQ nachdem sie aufgerufen wurden an die gleiche Stelle bringen, also mit Winmove.

    [autoit]


    run("C:\Programme\ICQ6\ICQ.exe")
    sleep(10000)
    WinClose("ICQ","")
    sleep(1000)
    run("C:\Programme\Winamp\Winamp.exe")
    winwaitactive ("Winamp" , "")
    sleep(200) ;hier vielleicht eine kleine Sleep, könnte eventuell helfen das Winamp fertig laden kann
    winmove("Winamp","",0,0)
    ;hier der neue Mouseclick mit den neuen Koordinaten wenn das Fenster bei 0,0 ist.
    sleep(1000)
    run("C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\TEXMOD+Scripte\Texmod.exe")
    WinWaitActive ("TexMod Beta Version v0.9b (c) RS", "")
    winmove("TexMod Beta Version v0.9b (c) RS","",0,0)
    sleep(200) ;hier vielleicht eine kleine Sleep, könnte eventuell helfen das Textmod fertig laden kann
    ;hier der neue Mouseclick mit den neuen Koordinaten wenn das Fenster bei 0,0 ist.
    ; das kommt erst noch
    ;winwaitactive ("TexMod Beta Version v0.9b (c) RS", "Select Executable")
    ;Mouseclick ("left", ,2)
    ;Winwaitactive ("TexMod - GW.EXE", "")
    ;Mouseclick ("left", ,2)

    [/autoit]

    mfg

  • Media Player

    • qon
    • 23. November 2007 um 17:31

    Hi,

    mit _soundpause und _soundresume, gibt auch noch _soundlength und _soundseek,
    ich glaube diese Befehle sind in der deutschen Hilfe nicht drin,
    musst mal in der Englischen gucken zurnot in der UDF also im Include ordner die sound.au3 anschauen. Da ist eigentlich auch alles gut beschrieben :)

    mfG qon

  • mousecklick

    • qon
    • 23. November 2007 um 17:25

    Hi,

    um welches Spiel handelt es sich denn?
    Jedenfalls vielleicht verwechselst du die Control-Klick Koordinaten mit den normalen der Maus die im Verhältnis zum ganzen Desktop stehen und nicht wie die Controlklicks die relativ zu einem Fenster sind.
    Edit: Mal den Code posten wäre auch nicht schlecht.

    mfG qon

  • Pielsearch..ist es möglich die kooridinaten herrauszufinden?

    • qon
    • 21. November 2007 um 21:00

    Hi Valvepro,
    geh mit der Maus auf die obere linke ecke des Kastens und speicher dir mit dem Infotool die Koordinaten, das gleiche unten rechts.
    Dann suchst du dort eben mit pixelsearch nach deiner Farbe.
    Hatten uns ja eben schon in der SB unterhalten, verstehe dein Problem bei der Sache nicht :(

    mfg qon

  • Netgear Router ReConnect - SILENT

    • qon
    • 21. November 2007 um 19:41

    Schade das ich ne fritzbox habe :(
    würde es bestimmt oft anwenden =)

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™