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

Beiträge von Cartan12

  • Verschiedene Probleme auf einmal

    • Cartan12
    • 9. Februar 2010 um 15:04

    Dateien würd ich so suchen:

    [autoit]

    $SearchDir = "M:\AUTO_JOB\ALK_Daten\Tab"
    Dim $SearchFiles[5],$search[5]
    $SearchFiles[0] = "*.DAT"
    $SearchFiles[1] = "*.TAB"
    $SearchFiles[2] = "*.MAP"
    $SearchFiles[3] = "*.IND"
    $SearchFiles[4] = "*.ID"
    For $i = 0 To 5
    $search[$i] = _FileListToArray($SearchDir,"*." & $SearchFiles[$i])
    If @error = 4 Then
    MsgBox(0,"!","Keine Dateien mit der Endung " & $SearchFiles[$i] & " gefunden!")
    Else
    Run($SearchFiles[$i])
    EndIf
    Next

    [/autoit]
  • South Park - Video Downloader

    • Cartan12
    • 9. Februar 2010 um 14:49

    Hmmm... Ich hab keine Ahnung, wiso manche Folgen bei bestimmten PC nicht klappen... z.B. die Anleitung funzt bei mir auf dem einen PC, auf dem anderen nicht...
    Die Links auf meiner Seite sind nun richtig.

  • Herausfinden wie lange ein Fenster inaktiv ist...

    • Cartan12
    • 8. Februar 2010 um 21:50
    Zitat von sl4y3r

    (keine Aktionen erfolgen in der Gui bzw. Gui ist nicht im Vordergrund)

    Ich glaub wir haben das unterschiedlich interpretiert... Du: "Keine Aktionen", Ich : "nicht im Vordergrund" :D

  • Herausfinden wie lange ein Fenster inaktiv ist...

    • Cartan12
    • 8. Februar 2010 um 21:41

    Ähm, ich mein die Funktion hat außer dem Begriff "Timer" recht wenig mit dem Thema zu tun...

  • Aktualiesierung

    • Cartan12
    • 8. Februar 2010 um 21:32

    Ansonsten schau dir einfach mal die Hilfe an. (Bei AdLibEnable/AdLibRegister darf kein Parameter übergeben werden!)

  • Herausfinden wie lange ein Fenster inaktiv ist...

    • Cartan12
    • 8. Februar 2010 um 21:29

    z.B.

    [autoit]

    Global $fenster = "AutoIt-Hilfe"
    AdlibRegister("_inaktiv")
    While 1
    Sleep(100)
    WEnd
    Func _inaktiv()
    $begin = TimerInit ()
    While Not WinActive($fenster)
    Sleep(100)
    WEnd
    $zeit = TimerDiff($begin)
    MsgBox(0,"",$zeit)
    EndFunc

    [/autoit]
  • Klaviatur+Töne

    • Cartan12
    • 8. Februar 2010 um 21:02

    Link gefixt.
    Falls jemand noch Anregungen/Wünsche hat, bitte sagen ;)

  • Multi- Chat erstes release

    • Cartan12
    • 8. Februar 2010 um 20:56

    Hab deswegen noch ein programm geschrieben, dass alle Verbindungen überprüft und die löscht, mit denen man sich nicht mehr verbinden kann... Ich glaub das ist beim PC neuinstallieren/formatieren verloren gegangen :pinch:

  • Multi- Chat erstes release

    • Cartan12
    • 8. Februar 2010 um 20:49

    Hab selber mal ein Chatprogramm geschrieben (Hat aber leider nicht so ganz gefunzt ;( ). Ich überlasse dir mal ein paar von meinen Ideen. Dazu brauchst du nur einen Benutzer bei ohost.de oder verglichbarem:
    Server auslesen:

    Spoiler anzeigen
    [autoit]

    ;!!!!!!!!!!!!!!!!!
    Global $open = _FTP_Open("ohost")
    Global $ohost_name = "?"
    Global $ohost_benutzer = "?"
    Global $ohost_pass = "?"
    ;!!!!!!!!!!!!!!!!!

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

    _GetIP()
    If @error Then
    Do
    _GetIP()
    Sleep(10000)
    Until Not @error
    EndIf
    $msgn = MsgBox (4,"Server erstellen?","Wollen sie einen Server erstellen?")
    If $msgn == 6 Then _serverstart()
    If $msgn == 7 Then

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

    $conn = _FTP_Connect($open,$server,$ohost_benutzer,$ohost_pass)
    If @error Then
    For $i = 1 To 10
    $conn = _FTP_Connect($open,$server,$ohost_benutzer,$ohost_pass)
    If Not @error Then ExitLoop
    Next
    If @error Then
    MsgBox(0,"","Verbindungsfehler")
    Exit
    EndIf
    EndIf
    InetGet("http://" & $ohost_name & ".ca.ohost.de/Chatprog/IPs.ini",@TempDir & "\IPs.ini")

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

    $IPs = IniReadSection(@TempDir & "\IPs.ini","IPs")
    $Names = IniReadSection(@TempDir & "\IPs.ini","Names")
    If @error Then
    _initserv()
    Else
    _initclient()
    EndIf
    EndIf

    [/autoit]

    Die Funktionen:

    Spoiler anzeigen
    [autoit]

    Func _initclient()
    $Form1 = GUICreate("Verbinden mit Server", 323, 110, 192, 124)
    $Label1 = GUICtrlCreateLabel("Verbinden mit:", 16, 24, 106, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    $Combo1 = GUICtrlCreateCombo("Server", 144, 24, 145, 25,$CBS_DROPDOWNLIST)
    For $i = 1 To $Names[0][0]
    GUICtrlSetData($Combo1,$i & ": " & $Names[$i][1])
    Next
    $Button1 = GUICtrlCreateButton("OK", 40, 72, 75, 25, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Abbrechen", 184, 72, 75, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
    ;FileDelete(@TempDir & "\IPs.ini")
    Exit
    Case $nMsg = $Button2
    ;FileDelete(@TempDir & "\IPs.ini")
    Exit
    Case $nMsg = $Button1
    $comb = GUICtrlRead($Combo1)
    If $comb == "Server" Then
    MsgBox(0,"!","Wählen sie einen Server aus!")
    Else
    GUIDelete($Form1)
    $split = StringSplit($comb,":")
    _Chatprog($IPs[$split[1]][1])
    FileDelete(@TempDir & "\IPs.ini")
    EndIf

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

    EndSelect
    WEnd
    EndFunc

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

    Func _initserv()
    $msgb = MsgBox(3,"!","Keiner Online! Wollen sie einen Eigenen Server starten?")
    If $msgb == 7 Then Exit
    If $msgb == 6 Then _serverstart()
    EndFunc

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

    Func _serverstart()
    ;...
    EndFunc

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

    Func _Chatprog($ip)
    ;...
    EndFunc

    [/autoit]
  • GUI Expand UDF

    • Cartan12
    • 8. Februar 2010 um 20:37
    Zitat von PrideRage

    Btw. ich habe erst am ende bemerkt, dass Modi 3 und 4 überflüßig sind :D

    :rofl:
    Aber trotzdem eine gute/praktische UDF ^^

  • Autoit Magazin

    • Cartan12
    • 8. Februar 2010 um 20:33

    Bin auch dabei ^^

  • Komplexes Programm mit externen Dateien und Autoupdater

    • Cartan12
    • 8. Februar 2010 um 20:25

    Ich mach das immer so:

    [autoit]

    If DirGetSize(@TempDir & "\meinprogramm") = -1 Then DirCreate(@TempDir & "\meinprogramm")
    InetGet("http://cartan.ca.ohost.de/Update.ini",@TempDir & "/meinprogramm/Update.ini")
    $version = IniRead(@TempDir & "/meinprogramm/Update.ini","Update","Version","Fehler")
    MsgBox(0,"Version",$version)
    ;~ DirRemove(@TempDir & "/meinprogramm",1)

    [/autoit]

    (Das Beispielscript klappt auch bei dir)

  • Dateipfad

    • Cartan12
    • 8. Februar 2010 um 19:41

    Du weißt, dass du, wenn du @ProgramFilesDir benutzt auch ..."Program Files"... weglassen musst?

  • Komplexes Programm mit externen Dateien und Autoupdater

    • Cartan12
    • 8. Februar 2010 um 19:39

    Und da kommt auch direkt die Antwort ^^:

    [autoit]

    $msgb = MsgBox(4,"!","Wollen sie wirklich beenden?")
    If $msgb = 6 Then Exit

    [/autoit]
  • Komplexes Programm mit externen Dateien und Autoupdater

    • Cartan12
    • 8. Februar 2010 um 19:31

    Keine Ursache ^^

  • Dateipfad

    • Cartan12
    • 8. Februar 2010 um 19:20

    Ich glaub du meinst was mit

    [autoit]

    @ProgramFilesDir

    [/autoit]

    Nun ja, wir können schließlich nicht wissen, wie es bei dir auf'm PC aussieht..

  • PC-Sperrsoftware

    • Cartan12
    • 8. Februar 2010 um 19:18

    Ich glaub Mitch meint den Taskmanager... Den kann man so killen:

    [autoit]

    BlockInput(1)
    HotKeySet("^+t","passwort")
    While 1
    If ProcessExists("taskmgr.exe") Then
    ProcessClose("taskmgr.exe")
    BlockInput(1)
    EndIf
    WEnd
    Func passwort()
    BlockInput(0)
    ;...
    EndFunc

    [/autoit]
  • Komplexes Programm mit externen Dateien und Autoupdater

    • Cartan12
    • 8. Februar 2010 um 19:14
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form2 = GUICreate("Form2", 413, 298, 302, 218)
    $Button1 = GUICtrlCreateButton("Abbrechen", 136, 104, 75, 25, $WS_GROUP)
    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
    WEnd

    [/autoit]
  • Komplexes Programm mit externen Dateien und Autoupdater

    • Cartan12
    • 8. Februar 2010 um 18:35

    Hast ein & vergessen:

    [autoit]

    MsgBox(0,"","hello" & @CRLF & "world")

    [/autoit]

    Run bindet kein anderes Programm ein, sondern startet einfach eine .exe

  • DLL - erstellen & Injecten

    • Cartan12
    • 8. Februar 2010 um 17:40

    :rofl: :rofl: :rofl: :rofl:
    Guck mal auf's Datum...
    :rofl: :rofl: :rofl: :rofl:

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™