Beiträge von Andy

  • Wingettext und Array Problem

    Hi,

    [autoit]

    $text= "News 1"&@crlf& _
    "News 2"&@crlf& _
    "Ankündigungen"&@crlf& _
    "Benutzer_ID_13456"&@crlf& _
    "Name_Mayer"

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

    $split=stringsplit($text,@crlf,3) ;ggf das trennzeichen anpassen und die 3 nicht vergessen ^^

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

    msgbox(0,0, "ID = "&$split[ubound($split)-2]&@crlf& _
    "Name = "&$split[ubound($split)-1])

    [/autoit]

  • Hexwerte per TCP senden

    Zitat

    Von daher ist diese ewige Diskussion über Legal oder Ilegal recht unergibig.

    Richtig, ob du legale Sachen machst oder nicht mit deinem Wissen, dass ist hier so ziemlich jedem schnurz! Wenn du allerdings die Forenregeln missachtest, dann hast du hier ein Problem....
    Und da passt ehrlich gesagt das Statement

    Zitat

    Jetzt versuche ich gerade ein abgefangenes TCP protokoll

    zu

    Zitat

    versuche den Aufbau von einigen Protokollen zu lernen

    irgendwie....garnicht^^
    Um deine "Frage" aber aber zu beantworten, such mal nach Fileovertcp, das ist keine spezielle Funktion, sondern eher der Sammelbegriff um was es eigentlich geht. Passende fertige Scripte findet man btw. auch^^

  • Bios Version...

    Hi,
    über WMI bekommst du viele Daten, unter anderem auch vom Bios. Im engl. Forum gibts ein Script, daß die Funktion von Scriptomatic komplett in Autoit umgesetzt hat, sehr feine Sache, da habe ich auch einiges her...
    Dieses Script wird mit 3 Mausclicks erstellt.....

    Spoiler anzeigen
    [autoit]

    ; Generated by AutoIt Scriptomatic November 12, 2009

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

    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $colItems = ""
    $strComputer = "localhost"

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

    $Output=""
    $Output &= "Computer: " & $strComputer & @CRLF
    $Output &= "==========================================" & @CRLF
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_BIOS", "WQL", _
    $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

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

    If IsObj($colItems) then
    For $objItem In $colItems
    $strBiosCharacteristics = $objItem.BiosCharacteristics(0)
    $Output &= "BiosCharacteristics: " & $strBiosCharacteristics & @CRLF
    $strBIOSVersion = $objItem.BIOSVersion(0)
    $Output &= "BIOSVersion: " & $strBIOSVersion & @CRLF
    $Output &= "BuildNumber: " & $objItem.BuildNumber & @CRLF
    $Output &= "Caption: " & $objItem.Caption & @CRLF
    $Output &= "CodeSet: " & $objItem.CodeSet & @CRLF
    $Output &= "CurrentLanguage: " & $objItem.CurrentLanguage & @CRLF
    $Output &= "Description: " & $objItem.Description & @CRLF
    $Output &= "IdentificationCode: " & $objItem.IdentificationCode & @CRLF
    $Output &= "InstallableLanguages: " & $objItem.InstallableLanguages & @CRLF
    $Output &= "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
    $Output &= "LanguageEdition: " & $objItem.LanguageEdition & @CRLF
    $strListOfLanguages = $objItem.ListOfLanguages(0)
    $Output &= "ListOfLanguages: " & $strListOfLanguages & @CRLF
    $Output &= "Manufacturer: " & $objItem.Manufacturer & @CRLF
    $Output &= "Name: " & $objItem.Name & @CRLF
    $Output &= "OtherTargetOS: " & $objItem.OtherTargetOS & @CRLF
    $Output &= "PrimaryBIOS: " & $objItem.PrimaryBIOS & @CRLF
    $Output &= "ReleaseDate: " & WMIDateStringToDate($objItem.ReleaseDate) & @CRLF
    $Output &= "SerialNumber: " & $objItem.SerialNumber & @CRLF
    $Output &= "SMBIOSBIOSVersion: " & $objItem.SMBIOSBIOSVersion & @CRLF
    $Output &= "SMBIOSMajorVersion: " & $objItem.SMBIOSMajorVersion & @CRLF
    $Output &= "SMBIOSMinorVersion: " & $objItem.SMBIOSMinorVersion & @CRLF
    $Output &= "SMBIOSPresent: " & $objItem.SMBIOSPresent & @CRLF
    $Output &= "SoftwareElementID: " & $objItem.SoftwareElementID & @CRLF
    $Output &= "SoftwareElementState: " & $objItem.SoftwareElementState & @CRLF
    $Output &= "Status: " & $objItem.Status & @CRLF
    $Output &= "TargetOperatingSystem: " & $objItem.TargetOperatingSystem & @CRLF
    $Output &= "Version: " & $objItem.Version & @CRLF
    if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
    $Output=""
    Next
    Else
    Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_BIOS" )
    Endif

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

    Func WMIDateStringToDate($dtmDate)

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

    Return (StringMid($dtmDate, 5, 2) & "/" & _
    StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
    & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
    EndFunc

    [/autoit]

  • [gelöst] Netzwerkproblem...

    @Der Doc
    er hat doch einen Rechner bei dem es einwandfrei funktioniert....Wenns bei einem klappt und bei dem anderen nicht, dann hängt es m.E. nicht an der Internetverbindung.

    Techmix
    Wie ist das, wenn du von einer Live-CD ein Linux startest, hast du dann auch diese Probleme?

  • DLL Open / Call zu langsam

    hmmm, in Turbo/Powerbasic hatte ich für diese Sachen den Inlineassembler bemüht. Dort konnte man direkt die COM-Ports beeinflussen.
    Dann limitiert nur noch die 102kbps-Schnittstelle den Speed :rock:

    Für Inlineassembler in AutoIt gibt es 2 Möglichkeiten, schau mal im engl. Forum, ich würde die "schöne" Variante bevorzugen.

    Spoiler anzeigen
    [autoit]

    http://www.autoit.de/index.php?page…0480#post110480

    [/autoit]

    oder aber so, aber "optisch" nicht so schöner 8) code^^

    Spoiler anzeigen
    [autoit]

    ; by trancexx
    #include <GUIConstantsEx.au3>
    #include <Memory.au3>

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

    Opt("GUIOnEventMode", 1)

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

    Global Const $STM_SETIMAGE = 370

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

    Global Const $iWidth = 800
    Global Const $iHeight = 470

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

    GUICreate("", $iWidth, $iHeight)
    GUISetOnEvent(-3, "_Quit")
    GUISetBkColor(0)

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

    Global $hPic = GUICtrlCreatePic("", 0, 0, $iWidth, $iHeight)

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

    Global $iSize = $iWidth * $iHeight
    Global $tBits = DllStructCreate("int[" & $iSize & "]")
    Global $pBits = DllStructGetPtr($tBits)

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

    Global $hBitmap, $aCall, $iHMsg
    Global $hPicHandle = GUICtrlGetHandle($hPic)

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

    Global $tRandom = DllStructCreate("dword")
    Global $pRandom = DllStructGetPtr($tRandom)

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

    GUISetState()

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

    Global $aRtlRandomEx = DllCall("kernel32.dll", "ptr", "GetProcAddress", "ptr", _WinAPI_GetModuleHandle("ntdll.dll"), "str", "RtlRandomEx")
    Global $pRtlRandomEx = $aRtlRandomEx[0]

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

    Global $aRtlMoveMemory = DllCall("kernel32.dll", "ptr", "GetProcAddress", "ptr", _WinAPI_GetModuleHandle("kernel32.dll"), "str", "RtlMoveMemory")
    Global $pRtlMoveMemory = $aRtlMoveMemory[0]

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

    Global $aSendMessageW = DllCall("kernel32.dll", "ptr", "GetProcAddress", "ptr", _WinAPI_GetModuleHandle("user32.dll"), "str", "SendMessageW")
    Global $pSendMessageW = $aSendMessageW[0]

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

    Global $aDeleteObject = DllCall("kernel32.dll", "ptr", "GetProcAddress", "ptr", _WinAPI_GetModuleHandle("gdi32.dll"), "str", "DeleteObject")
    Global $pDeleteObject = $aDeleteObject[0]

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

    Global $aCreateBitmap = DllCall("kernel32.dll", "ptr", "GetProcAddress", "ptr", _WinAPI_GetModuleHandle("gdi32.dll"), "str", "CreateBitmap")
    Global $pCreateBitmap = $aCreateBitmap[0]

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

    Global $pRemoteCode = _MemVirtualAlloc(0, 512, $MEM_COMMIT, $PAGE_EXECUTE_READWRITE)

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

    Local $tCodeBuffer = DllStructCreate("byte[512]", $pRemoteCode)

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

    #Region Assemply
    DllStructSetData($tCodeBuffer, 1, _
    "0x" & _
    "33DB" & _ ; xor ebx, ebx
    "68" & SwapEndian($pRandom) & _ ; push $pRandom
    "B8" & SwapEndian($pRtlRandomEx) & _ ; mov eax, RtlRandomEx
    "FFD0" & _ ; call eax
    "8BCB" & _ ; mov ecx, ebx
    "69C9" & SwapEndian(4) & _ ; imul ecx, 4
    "81C1" & SwapEndian($pBits) & _ ; add ecx, $pBits
    "68" & SwapEndian(3) & _ ; push 3 bytes
    "68" & SwapEndian($pRandom) & _ ; push $pRandom
    "51" & _ ; push ecx
    "B8" & SwapEndian($pRtlMoveMemory) & _ ; mov eax, RtlMoveMemory
    "FFD0" & _ ; call eax
    "43" & _ ; inc ebx
    "81FB" & SwapEndian($iSize) & _ ; cmp ebx, $iSize; <- compare ebx with $iSize
    "75" & Hex(256 - 53, 2) & _ ; jne -53 bytes; <- this is saying go back and do it again if not equal
    "68" & SwapEndian($pBits) & _ ; push $pBits
    "68" & SwapEndian(32) & _ ; push BitsPerPel
    "68" & SwapEndian(1) & _ ; push Planes
    "68" & SwapEndian($iHeight) & _ ; push $iHeight
    "68" & SwapEndian($iWidth) & _ ; push $iWidth
    "B8" & SwapEndian($pCreateBitmap) & _ ; mov eax, CreateBitmap
    "FFD0" & _ ; call eax
    "50" & _ ; push eax
    "68" & SwapEndian(0) & _ ; push IMAGE_BITMAP
    "68" & SwapEndian($STM_SETIMAGE) & _ ; push STM_SETIMAGE
    "68" & SwapEndian($hPicHandle) & _ ; push $hPicHandle
    "B8" & SwapEndian($pSendMessageW) & _ ; mov eax, SendMessageW
    "FFD0" & _ ; call eax
    "50" & _ ; push eax
    "B8" & SwapEndian($pDeleteObject) & _ ; mov eax, DeleteObject
    "FFD0" & _ ; call eax
    "C3" _ ; ret
    )
    #EndRegion Assembly

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

    ;While 1

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

    #region Assembly

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


    $t=timerinit()
    for $i=1 to 10
    DllCall("user32.dll", "int", "CallWindowProcW", _
    "ptr", $pRemoteCode, _
    "int", 0, _
    "int", 0, _
    "int", 0, _
    "int", 0)
    next
    #endregion Assembly
    $x=timerdiff($t)
    msgbox(0,0,$x)
    Sleep(10)
    while 1
    WEnd

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

    Func SwapEndian($iValue)
    Return Hex(Binary($iValue))
    EndFunc ;==>SwapEndian

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

    Func _Quit()
    Exit
    EndFunc ;==>_Quit

    [/autoit]

    damit ist das +dll-gefrickel dann auch vorbei...und Geschwindigkeitsmäßig wird es auch von C-Routinen nicht zu toppen sein

  • Screenshots via AutoIt ?

    Zitat

    Will dann einbauen das AutoIt am Screenshot ein paar Sachen erkennt

    schau mal hier, das erkennt auch *.jpg-Files .
    GGF wäre es aber einfacher, direkt auf dem Rechner nach Veränderungen zu gucken und dann bei Bedarf nur eine Info zu schicken. Da braucht man auch kein Mail....TCP reicht da idR.

  • [gelöst] Netzwerkproblem...

    @Der Doc
    Habe gerade mal eine "Testinstallation" von XP SP2 von OrginalCD gemacht, SP3 auch von CD eingespielt. Ergebnis: Identisches Problem auf meinem Rechner (AMD 2,5GHz DualCore), sehr lange Wartezeit bis zum Seitenaufbau, beim Testen irgendwelcher "WieschnellistmeineInternetverbindung"sSeiten wird der Download bei 100%, aber der Upload nur bei 50% der maximal möglichen Werte angezeigt. TCPOptimizer starten, mit "optimalen" Werten speichern, (u.a. die MTU wird von 1500 auf 1492 geändert), rebooten und danach ist alles paletti......

    Zitat

    Was sein kann wäre das dein Switch auf Autonegotiation steht und deine Netzwerkkarte auf Festen 100MBit steht.

    Habe hier 2 Rechner an einem (uralt)-10Mbit-Switch hängen, weil alle Ports am Router schon vollgestopft sind. Ob ich die Rechner direkt am Router oder am "langsamen" Switch hängen habe, macht so gut wie keinen Unterschied.

    Zitat

    und Microsoft wäre pleite!

    Was ich definitiv weiß, ist das ich bei XP nach einspielen einiger Updates (frag mich nicht welche, ich hole die mir nur alle 2-3 Wochen) vor ca. einem Jahr diesen Ärger hatte. Rechner ohne Update hatten keine Probleme, Rechner mit Update diese "langsame" Internetverbindung. Fiel mir ehrlich gesagt auch nur bei der Inetverbindung auf, Netzintern ist mir bissl langsamer oder schneller ziemlich schnurz^^


    Allerdings muss ich sagen, das ich selbige Probleme auch einmal mit einem defekten DSL-Modem hatte. Nicht sehr lustig ist ein Defekt, der NICHT IMMER auftritt....
    Das Dreckding hatte mich so lange geärgert, bis ich nach Eleminierung aller Möglichkeiten (kreuzweise alle beteiligten Komponenten mit meinem Freund getauscht) das Modem als Ursache festmachen konnte. Diagnose nach Einsenden zum Hersteller: "Nicht Defekt!". Das hiess für mich, das Ding sofort in die Tonne zu treten. Mit dem neuen Modem läufts seither wunderbar....

  • Paint

    Hallo,
    ich kann dir sagen, wie ICH es machen würde^^

    [autoit]

    Opt("MouseCoordmode", 2) ;mauskoordinaten nur im aktiven Fenster
    run("MSPaint.exe")
    winwaitactive("Unbenannt - Paint","")
    ControlClick("Unbenannt - Paint","","[CLASS:Afx:1000000:8; INSTANCE:1]","left",1,10,10) ;da hinklicken
    WinActivate("[CLASS:Afx:1000000:8; INSTANCE:1]") ;fenster aktivieren
    MouseMove(100,100,0) ;mauskkoordinaten nur im "Malfenster"
    MouseDown("left")
    mousemove(200,200,0)
    Mouseup("left")

    [/autoit]

  • µit Light Dezember '09

    Zitat

    mit einer einstellbaren Vorwarnzeit.

    Habe das in meinem Communicator so eingestellt, dass 3 Tage vor dem Ereignis ein Alarm kommt. So muss ich nicht lügen wenn ich dann gefragt werde:"Na, haste meinen Geburtstag gestern vergessen?" :rofl:

  • Script-autostarten - was mach ich falsch?

    Zitat

    Ich kann nicht nachvollziehen wie sowas passieren kann

    Ich schon^^
    Aus der Hilfe zu Filecreateshortcut()
    Parameter
    file Vollständiger Pfad und Dateiname der Datei, auf die die Verknüpfung verweisen soll.
    lnk Vollständiger Pfad und Dateiname der Verknüpfung.

    Ohne Dateinamen werden auch keine Dateien erstellt....

  • [gelöst] Netzwerkproblem...

    Hallo Techmix....

    das Problem liegt m.E. bei der MTU von 1500. Ganz grob gesagt bezeichnet dieser Wert die maximale Grösse von übertragenen Paketen. Im Internet ist dieser Wert auf 1492 eingestellt . Problem ist nun folgendes: Windows schickt ein Paket mit der Grösse von 1500 los, der Router weiss, dass aber nur 1492 übertragen werden und teilt dadurch das eine Paket in zwei kleinere auf....gleichzeitig bekommt er aber auch doppelt so viele Antwortpakete zurück, die erst mal auseinanderklabustert werden müssen...die Chance von verlorenen Paketen verdoppelt sich natürlich incl. der gesamten Rechnerei, ergo bekommst du diese Verzögerung!

    Lösung: Stell entweder "von Hand" mal 1490 im TCPOptimizer ein (oder 1480), speichern, reboot und Testen! Oder geh mal auf den Reiter Largest MTU beim Optimizer und dort auf Start. In der untersten Zeile sollte das Ergebnis dieses Tests stehen. Das trägst du dann bei General Settings von Hand in die MTU ein, speichern nicht vergessen, reboot und wieder Testen!

    Jede Wette, bei deinem "Toaster" steht ein anderer Wert in der MTU! Im Zweifelsfall übernimmst du diesen Wert einfach....

  • Hexwerte per TCP senden

    Hallo,
    bei jeder Art der Datenübertragung ist das Format der übertragenen Daten völlig unwichtig! Hauptsache, die "andere Seite" weiß was da jetzt kommt!

    Zitat

    Jetzt versuche ich gerade ein abgefangenes TCP protokoll genauso mit autoit zu senden.

    Im Zweifelsfall sendet man unbekannte Daten im BINÄR-Modus. Dadurch wird erreicht, daß Steuerzeichen (EOF,EOL) nicht als solche interpretiert, sondern an den Empfänger weitergereicht werden.

    Zitat

    und zum anderen habe ich noch keine möglichkeit gefunden wie ich mit dem tcpSend befehl größere mengen hex werte sende.

    In der Hilfe sind lauffähige Beispiele zur Datenübertragung mit Client/Server, die (m.E. nicht nötige) Erweiterung mit einer handvoll Zeilen Code sollte kein Problem darstellen.

  • 2. GUI einfügen

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <Constants.au3>
    ;#include <AutoRun.au3>
    #include <IE.au3>

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

    $aProgramm = @ScriptDir & "TrayManager.exe"
    ;_AutoRun_SetProgramm($aProgramm)

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

    TraySetState()
    TrayTip("TrayManager ist aktiviert", "Sie können den TrayManager nun nutzen", 99999999999999999)
    Opt("TrayMenuMode", 1) ; Default tray menu items (Script Paused/Exit) will not be shown.

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

    $menuURLoeffnen = TrayCreateitem("URL öffnen")

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

    $MenuAusfuehren = TrayCreateMenu("Ausführen")
    $ICQ = TrayCreateItem("ICQ", $MenuAusfuehren)
    $FF = TrayCreateItem("Firefox", $MenuAusfuehren)
    $Safari = TrayCreateItem("Safari", $MenuAusfuehren)
    $IE = TrayCreateItem("Internet-Explorer", $MenuAusfuehren)
    TrayCreateItem("")
    $MenuOpenWEB = TrayCreateMenu("Internetseite im Internet-Explorer öffnen")
    $Wikipedia = TrayCreateItem("Wikipedia.de", $MenuOpenWEB)
    $Leo = TrayCreateItem("Leo.de", $MenuOpenWEB)
    $Youtube = TrayCreateItem("Youtube.de", $MenuOpenWEB)
    $Google = TrayCreateItem("Google.de", $MenuOpenWEB)
    $Yahoo = TrayCreateItem("Yahoo.de", $MenuOpenWEB)
    $Web = TrayCreateItem("Web.de", $MenuOpenWEB)
    $YahooMAIL = TrayCreateItem("Yahoo-Mail", $MenuOpenWEB)
    $Gmx = TrayCreateItem("Gmx.de", $MenuOpenWEB)
    TrayCreateItem("")
    $Info = TrayCreateItem("Info")
    TrayCreateItem("")
    $Beenden = TrayCreateItem("Beenden")
    $Form1 = GUICreate("URL öffnen", 544, 80, 192, 124)
    $Input1 = GUICtrlCreateInput("http://", 24, 50, 465, 21)
    $Button1 = GUICtrlCreateButton("URL öffnen", 400, 15, 70, 30, $WS_GROUP)
    $Label1 = GUICtrlCreateLabel("Bitte geben Sie die URL ein und klicken Sie dann auf URL öffnen", 24, 8, 350, 17)

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

    Func _Info()
    MsgBox(64, "Info", "Dieses Programm wurde von Andi gemacht." & @CRLF)
    EndFunc ;==>_Info
    TraySetState(8)
    Func _URL_oeffnen()
    _IECreate($Input1, 0, 1, 0)
    EndFunc ;==>_URL_oeffnen

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

    While 1
    $msg = TrayGetMsg()
    Select
    Case $msg = 0
    ContinueLoop
    Case $msg = $Info
    _Info()

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

    Case $msg = $menuURLoeffnen
    GUISetState(@SW_SHOW, $Form1)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exitloop
    Case $Button1
    _URL_oeffnen()
    ExitLoop
    EndSwitch
    WEnd
    GUISetState(@SW_hide, $Form1)
    Case $msg = $ICQ
    Run("C:\Programme\ICQ6.5\ICQ.exe")
    If @error Then
    MsgBox(48, "Fehler!!!", "Kann ICQ.exe nicht finden!")
    EndIf
    Case $msg = $IE
    Run("C:\Programme\Internet Explorer\IEXPLORE.EXE")
    If @error Then
    MsgBox(48, "Fehler!!!", "Kann IEXPLORE.exe nicht finden!")
    EndIf
    Case $msg = $FF
    Run("C:\Programme\Mozilla Firefox\firefox.exe")
    If @error Then
    MsgBox(48, "Fehler!!!", "Kann firefox.exe nicht finden!")
    EndIf
    Case $msg = $Safari
    Run("C:\Programme\Safari\Safari.exe")
    If @error Then
    MsgBox(48, "Fehler!!!", "Kann Safari.exe nicht finden!")
    EndIf
    Case $msg = $Wikipedia
    _IECreate("www.wikipedia.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Wikipedia.de herstellen!")
    EndIf
    Case $msg = $Leo
    _IECreate("www.leo.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Leo.de herstellen!")
    EndIf
    Case $msg = $Youtube
    _IECreate("www.youtube.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Youtube.de herstellen!")
    EndIf
    Case $msg = $Google
    _IECreate("www.google.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Google.de herstellen!")
    EndIf
    Case $msg = $Yahoo
    _IECreate("www.Yahoo.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Yahoo.de herstellen!")
    EndIf
    Case $msg = $Web
    _IECreate("www.web.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Web.de herstellen!")
    EndIf
    Case $msg = $YahooMAIL
    _IECreate("de.mail.yahoo.com", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Yahoo-Mail herstellen!")
    EndIf
    Case $msg = $Gmx
    _IECreate("www.gmx.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Gmx.de herstellen!")
    EndIf
    Case $msg = $Beenden
    ExitLoop
    EndSelect

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

    WEnd
    Exit

    [/autoit]

    das funktioniert so mit einer selbstgebastelten GUI, aber die "ein_Befehl_Lösung" wäre in diesem Fall Inputbox(). Man muss ja nicht jedes mal das Rad komplett neu erfinden ^^

  • Automatisches scrollen in Listview

    Alle "hellblauen" Funktionen kann man sich direkt mit CTRL-J (Prod) oder CTRL-ALT-J (Beta) anschauen und ggf auf seine eigenen Bedürfnisse zurechtschnitzen, zurückspringen ins Script funktioniert mit CTRL-Shift-J

    Im Bearbeiten- und Extras-Menü in Scite sind die wahren AutoIt-Schätze versteckt...