[Tool]My inetrunner v2

    • [Tool]My inetrunner v2

      Nun ist es so weit
      die zweite Version meines inetrunner tools.
      Enjoy it!!

      [FELD="Link zu Version 1"]
      Klick hier![/FELD]

      [FELD="Was ist neu?"]
      • Neues design


      • Icons wurden entfernt


      • Checkbox Auswahl zum öffnen verschiedener Programme


      • Scroll down Menu


      • MsgBox generator( Von xDrago )
        [COLOR="Blue"]//Temo: Ja xDrago ^^ is ne gute idee xD
        [/COLOR]


      • Select all/UnSelect Buttons um die Checkboxen alle zu/ent makieren.


      • Zwei Fenster Navigation.

      [/FELD]

      Bilder:


      [FELD="Download"]
      Klick hier!
      [/FELD]
      [FELD="Virus Test"]
      Klick hier!
      [/FELD]
      "Quellcode"

      #include <ButtonConstants.au3>
      #include <ComboConstants.au3>
      #include <EditConstants.au3>
      #include <GUIConstantsEx.au3>
      #include <StaticConstants.au3>
      #include <WindowsConstants.au3>

      #Region ### START Koda GUI section ### Form=c:\program files\auto it\examples\inetrunnerv3.kxf
      $Form1_1 = GUICreate("inet runner", 180, 241, -1, -1, -1, BitOR($WS_EX_APPWINDOW,$WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
      GUISetIcon("C:\Program Files\GIMP-2.0\bin\gimp-2.6.exe")
      GUISetCursor (7)
      GUISetBkColor(0xC0DCC0)
      $I_input = GUICtrlCreateInput("", 8, 8, 161, 24)
      GUICtrlSetBkColor(-1, 0x008080)
      $Combo1 = GUICtrlCreateCombo("", 8, 184, 113, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL,$CBS_SORT,$CBS_LOWERCASE), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
      GUICtrlSetData(-1, "adobe|chip|chrome|firefox|gfx-sector|gimp|godlikerz|google|ingamers|media player|paint|pc-welt|vbulletin|yahoo")
      $Auto_i = GUICtrlCreateCheckbox("Auto it", 8, 40, 89, 25, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
      $Gim = GUICtrlCreateCheckbox("Gimp", 8, 64, 89, 25, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
      $Firefox = GUICtrlCreateCheckbox("Firefox", 8, 88, 89, 25, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
      $Skyp = GUICtrlCreateCheckbox("Skype", 8, 112, 89, 25, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
      $Adobe = GUICtrlCreateCheckbox("Adobe", 104, 40, 65, 25, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
      GUICtrlSetFont(-1, 7, 400, 0, "MS Sans Serif")
      $teamview = GUICtrlCreateCheckbox("Team", 104, 64, 65, 25, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
      $IC = GUICtrlCreateCheckbox("ICQ", 104, 88, 65, 25, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
      $Mai = GUICtrlCreateCheckbox("Mail", 104, 112, 65, 25, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
      $Open = GUICtrlCreateButton("Open", 8, 152, 161, 25, $BS_DEFPUSHBUTTON)
      $SelectAll = GUICtrlCreateButton("SelectAll", 8, 136, 81, 17, 0)
      $UnSelect = GUICtrlCreateButton("UnSelect", 88, 136, 81, 17, 0)
      $Enter = GUICtrlCreateButton("Enter", 128, 184, 41, 25, 0)
      $Label1 = GUICtrlCreateLabel("Made by Temo", 72, 216, 96, 20)
      GUISetState(@SW_SHOW)
      #EndRegion ### END Koda GUI section ###


      #Region ### START Koda GUI section ### Form=c:\program files\auto it\examples\inetrunner form 2.kxf
      $Form2 = GUICreate("inet runner", 141, 250, 529, 622)
      GUISetBkColor(0xC0DCC0)
      $Run = GUICtrlCreateButton("Enter", 8, 8, 121, 33, 0)
      $SPAMM = GUICtrlCreateButton("SPAMM", 8, 72, 121, 33, 0)
      $Features = GUICtrlCreateButton("Features", 8, 104, 121, 33, 0)
      $Beenden = GUICtrlCreateButton("Beenden", 8, 136, 121, 33, 0)
      $MsgBox = GUICtrlCreateButton("MsgBox", 56, 192, 73, 33, 0)
      $Reset = GUICtrlCreateButton("Reset", 8, 40, 121, 33, 0)
      $Label1 = GUICtrlCreateLabel("Made by Temo", 21, 225, 96, 20)
      $number = GUICtrlCreateInput("0", 8, 200, 49, 24)
      $Name = GUICtrlCreateInput("Name", 8, 168, 121, 24)
      GUISetState(@SW_SHOW)
      #EndRegion ### END Koda GUI section ###


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

      Case $Run
      $pfad = GUICtrlRead ($I_input)
      If GUICtrlRead ($I_input)= "virtual box" Then ;Überprüft ob in dem Inputfeld "virtual box" steht.
      Run ("C:\Program Files\Sun\xVM VirtualBox\VirtualBox.exe")
      ElseIf GUICtrlRead ($I_input)= "wmp" Then ;Sollte "virtual box" nicht dadrin stehen werden die Elseif Befehle ausgefürt.
      Run ("C:\Program Files\Windows Media Player\wmplayer.exe")
      ElseIf GUICtrlRead ($I_input)= "mail" Then
      Run ("C:\Program Files\Windows Live\Mail\wlmail.exe")
      ElseIf GUICtrlRead ($I_input)= "rar" Then
      Run ("C:\Program Files\WinRAR\WinRar.exe")
      ElseIf GUICtrlRead ($I_input)= "foto" Then
      Run ("C:\Program Files\Windows Live\Photo Gallery\WLXPhotoGallery.exe")
      ElseIf GUICtrlRead ($I_input)= "wl" Then
      Run ("C:\Program Files\Windows Live\Messenger\msnmsgr.exe")
      ElseIf GUICtrlRead ($I_input)= "quick" Then
      Run ("C:\Program Files\QuickTime\QuickTimePlayer.exe")
      ElseIf GUICtrlRead ($I_input)= "fire" Then
      ElseIf guictrlread($I_input) = "GL" Then
      ShellExecute("http://www.godlikerz.de")
      ElseIf guictrlread($I_input) = "godlikerz" Then
      ShellExecute("http://www.godlikerz.de")
      ElseIf guictrlread($I_input) = "google" Then
      ShellExecute("http://www.google.de")
      ElseIf guictrlread($I_input) = "ingamers" Then
      ShellExecute("http://www.ingamers.de")
      ElseIf guictrlread($I_input) = "herunterfahren" Then
      Shutdown (4)
      ElseIf guictrlread($I_input) = "neustart" Then
      Shutdown (2)
      ElseIf guictrlread($I_input) = "schlaf" Then
      Shutdown (64)
      ElseIf guictrlread($I_input) = "log out" Then
      Shutdown (0)
      ElseIf guictrlread($I_input) = "stromOff" Then
      Shutdown (8)
      ElseIf guictrlread($I_input) = "chrome" Then
      Run ("C:\Users\Jan\AppData\Local\Google\Chrome\Application\chrome.exe")
      ElseIf guictrlread($I_input) = "IE" Then
      Run ("C:\Program Files\Internet Explorer\iexplore.exe")
      ElseIf guictrlread($I_input) = "auto" Then
      Run ("C:\Program Files\Auto it\Auto it\AutoIt3\Kodak\FD.exe")
      Run ("C:\Program Files\Auto it\Auto it\AutoIt3\SciTE\SciTE.exe")
      Run ("C:\Program Files\Auto it\Auto it\AutoIt3.chm")
      ElseIf guictrlread($I_input) = "skype" Then
      Run ("C:\Program Files\Skype\Phone\Skype.exe")
      ElseIf guictrlread($I_input) = "team" Then
      Run ("C:\Program Files\TeamViewer\Version4\TeamViewer.exe")
      ElseIf guictrlread($I_input) = "WDM" Then
      Run ("C:\Program Files\DVD Maker\DVDMaker.exe")
      ElseIf guictrlread($I_input) = "virtual" Then
      Run ("C:\Program Files\Sun\xVM VirtualBox\VirtualBox.exe")
      ElseIf guictrlread($I_input) = "gimp" Then
      Run ("C:\Program Files\GIMP-2.0\bin\gimp-2.6.exe")
      ElseIf guictrlread($I_input) = "icq" Then
      Run ("D:\Program Files\ICQ6.5\ICQ.exe")
      Else ;Sollte weder das was bei if oder elseif steht stimmen wird der else befehl ausgeführt
      $pfad=guictrlread($I_input); Die Variable $pfad ließ den Inhalt des Inputfeldes.
      ShellExecute($pfad); Für das was in dem Inputfeld staht aus mit dem Standart Internetbrowser (nur wenn das eingegebene eine Internet addresse ist also www./.../http://www./... )
      EndIf


      ;--------------------------------------------------------------
      Case $Features
      GuiCtrlSetData( $I_input , "virtual box |wmp |mail |rar |foto |wl |quick |fire |GL |godlikerz |google |ingamers |herunterfahren |neustart |schlaf |log out |stromOff |chrome |IE |auto |skype |team |WDM |virtual |gimp |icq ")
      ;Die Codes werden in der Notizbox angezeigt wenn man auf funktionen klickt.
      ;----------------------------------------------------
      Case $Beenden
      MsgBox (0, "Programm wird geschlossen", "Hoffe du hattest Spaß mit meinem TOOL!", 3)
      WinKill ("internet runner")
      ;Button Beenden wir definiert
      ;---------------------------------------------------
      Case $SPAMM
      $pfad = GUICtrlRead ($I_input)
      While 1
      MsgBox (1, "Spammer", $pfad, 3)
      WEnd
      ;SPammt den text aus dem inputfeld.
      ;--------------------------------------------------------
      Case $Open
      If GUICtrlRead ($Auto_i) = 1 Then
      Run ("C:\Program Files\Auto it\Auto it\AutoIt3\Kodak\FD.exe"); Run bedeutet ein Programm zu starten dahinter steht der Pfad des Programms in () und "" also ("")
      Run ("C:\Program Files\Auto it\Auto it\AutoIt3\SciTE\SciTE.exe")
      Run ("C:\Program Files\Auto it\Auto it\AutoIt3.chm")
      EndIf
      If GUICtrlRead ($Gim) = 1 Then
      Run ("C:\Program Files\GIMP-2.0\bin\gimp-2.6.exe")
      EndIf
      If GUICtrlRead ($Firefox) = 1 Then
      Run ("C:\Program Files\Mozilla Firefox\firefox.exe")
      EndIf
      If GUICtrlRead ($Skyp) = 1 Then
      Run ("C:\Program Files\Skype\Phone\Skype.exe")
      EndIf
      If GUICtrlRead ($adobe) = 1 Then
      ShellExecute ("http://www.adobe.com/de/")
      EndIf
      If GUICtrlRead ($teamview) = 1 Then
      Run ("C:\Program Files\TeamViewer\Version4\TeamViewer.exe")
      EndIf
      If GUICtrlRead ($IC) = 1 Then
      Run ("C:\Program Files\ICQ6.5\ICQ.exe")
      EndIf
      If GUICtrlRead ($Mai) = 1 Then
      Run ("C:\Program Files\Windows Live\Mail\wlmail.exe")
      EndIf

      ;Das was passiert wenn die checkbox aktiviert ist under der Button $open gedrückt wird.
      ;------------------------------------------------------------
      Case $Reset
      GUICtrlSetData ( $I_input, "")
      ;Reset knopf wird hier deefiniert. Der Text wird zu "" nichts gesetzt.
      ;------------------------------------------------------------
      Case $SelectAll
      GUICtrlSetState($Auto_i, $GUI_CHECKED)
      GUICtrlSetState($Gim, $GUI_CHECKED)
      GUICtrlSetState($Firefox, $GUI_CHECKED)
      GUICtrlSetState($Skyp, $GUI_CHECKED)
      GUICtrlSetState($adobe, $GUI_CHECKED)
      GUICtrlSetState($teamview, $GUI_CHECKED)
      GUICtrlSetState($IC, $GUI_CHECKED)
      GUICtrlSetState($Mai, $GUI_CHECKED)

      Case $UnSelect
      GUICtrlSetState($Auto_i, $GUI_UNCHECKED)
      GUICtrlSetState($Gim, $GUI_UNCHECKED)
      GUICtrlSetState($Firefox, $GUI_UNCHECKED)
      GUICtrlSetState($Skyp, $GUI_UNCHECKED)
      GUICtrlSetState($adobe, $GUI_UNCHECKED)
      GUICtrlSetState($teamview, $GUI_UNCHECKED)
      GUICtrlSetState($IC, $GUI_UNCHECKED)
      GUICtrlSetState($Mai, $GUI_UNCHECKED)
      #cs Hier wird der SelectAll und der UnSelectAll button definiert
      $GUI_CHECKED bzw. $GUI_UNCHECKED geben an checkbox selectet
      oder nicht.
      #ce
      ;--------------------------------------------------------
      Case $Enter
      $pfad2 = GUICtrlRead ($Combo1)
      If $pfad2 = "adobe" Then
      ShellExecute ("http://www.adobe.com/de")
      EndIf

      If $pfad2 = "chip" Then
      ShellExecute ("http://www.chip.de")
      EndIf
      If $pfad2 = "chrome" Then
      Run ("C:\Users\Jan\AppData\Local\Google\Chrome\Application\chrome.exe")
      EndIf
      If $pfad2 = "firefox" Then
      Run ("C:\Program Files\Mozilla Firefox\firefox.exe")
      EndIf
      If $pfad2 = "gfx-sector" Then
      ShellExecute ("http://www.gfx-sector.de")
      EndIf
      If $pfad2 = "gimp" Then
      Run ("C:\Program Files\GIMP-2.0\bin\gimp-2.6.exe")
      EndIf
      If $pfad2 = "godlikerz" Then
      ShellExecute ("http://www.godlikerz.de")
      EndIf
      If $pfad2 = "google" Then
      ShellExecute ("http://www.google.de")
      EndIf
      If $pfad2 = "ingamers" Then
      ShellExecute ("http://www.ingamers.de")
      EndIf
      If $pfad2 = "media player" Then
      Run ("C:\Program Files\Windows Media Player\wmplayer.exe")
      EndIf
      If $pfad2 = "paint" Then
      Run ("C:\Windows\system32\mspaint.exe")
      EndIf
      If $pfad2 = "pc-welt" Then
      ShellExecute ("http://www.pcwelt.de/")
      EndIf
      If $pfad2 = "vBulletin" Then
      ShellExecute ("http://www.vbulletin-germany.com")
      EndIf
      If $pfad2 = "Yahoo" Then
      ShellExecute ("http://www.yahoo.de")
      EndIf


      Case $MsgBox
      MsgBox (GUICtrlRead ($number), GUICtrlRead ($name), GUICtrlRead ($I_input))
      EndSwitch
      WEnd



      "Old Version"

      Hi hab mal ein kleines programm erstellt.
      Was es kann es ist eine kleine start zentrale xD. Features folgen.

      Features:
      1.Internetseiten öffnen^^
      2.Programme öffnen per Abkkürzungen
      3.Programme öffnen mit der Pfadangabe
      4.Übersichtliche icons von einpaar Programmen
      5.Button Liste wo man mit einem klick auf die Webseite gelangt
      6.notizbox^^
      7.Spamme Nachicht auf dem Eigenen Bildschirm :P
      8.Beenden buttons mit Abschieds Nachicht

      Hier einpaar Bilder:
      image1
      image2
      image3
      image4
      ------------------------------------------------------------------

      1. Ihr geb einfach in das inputfeld(siehe image 3) www. oder www. ein. Nur z.B. godlikerz.de oder GodLikerZ - Beats Everything klappen nicht.
      Die Seite wird im Standertbrowser geöffnet.
      -------------------------------------------------------------------

      2. Die Abküzungen müssen auch einfach in das inputfeld eingegeben werden.
      Eine Liste von den abkürzungen erscheint in der Notizbox (siehe image 4) wenn ihr auf den Button Features klickt.

      oder hier

      Quellcode

      1. virtual box |wmp |mail |rar |foto |wl |quick |fire |GL |godlikerz |google |ingamers |herunterfahren |neustart |schlaf |log out |stromOff |chrome |IE |auto |skype |team |WDM |virtual |gimp |icq
      ohne die "|" natürlich.

      Bei den Abkürzungen spielt Groß-/Kleinschreibung keine Rolle.

      Hier bei kann es Probleme geben siehe "Probleme" unten.
      ---------------------------------------------------------------

      3. Ihr könnt auch einfach den Pfad eurer Programme dortrein schreiben (in das inputfeld siehe image 3)
      -----------------------------------------------------------------

      4. Wenn ihr auf die icons (image 2) drückt wird das Programm geöffnet.
      Hier bei kann es Probleme geben siehe "Probleme" unten.
      -----------------------------------------------------------------
      5.Klick einfach auf die Buttons^^ denkmal ist einleuchtend
      -----------------------------------------------------------------
      6.Was ein Notizblock ist ist jawohl klar^^. Wenn du auf den button Features drückst erscheinen die Abkürzungen in dem Notizblock und überschreiben das was drin steht.
      -----------------------------------------------------------------
      7. Öffnet eine msgbox mit dem inhalt des inputfeldes(seihe image 3)
      Die Messagebox lässt sich nicht schließen nur mit dem Taskmanager (Strg+Alt+Entf).
      -----------------------------------------------------------------
      8. Ein klick darauf Beendet das Programm mit einer Abschieds Nachicht.
      ------------------------------------------------------------------
      Probleme: Ws können mit den Abkürzungen/icons/... probleme entstehen wenn die icons nicht im selben ordner sind wi im quellcode. Deswegen realse ich auch den quellcode den ihr dann an euren computer anpassen könnt.


      Downloadlink: Download

      Quellcode

      1. [COLOR=DarkRed]Password: GodLikerz[/COLOR]
      Virustest

      Missbraucht den Code bitte nicht. Ich will weder diesen Guide noch den code das tool oder so in einem anderen Forum sehen!!! Copirights by temo

      Bei Fragen fragt.

      Pls geb mir doch wenns euch gefallen hat ein thx/Karma.


      [FELD="Wichtig"]
      Jeglicher Missbrauch des Programms oder des Quellcodes ist strengstens Verboten!!! Das posten in anderen Forums ist ohne meine Eindeutige erlaubnis und die credits und ein Link zu diesem Thread auch verboten.
      [/FELD]

      Wenn euch mein tool gefällt gebt mir doch pls ein Thanks.^^

      Mfg Temo
      Dateien

      • Aufzeichnen2.JPG

        (11,13 kB, 204 mal heruntergeladen, zuletzt: )

      • Aufzeichnen3.JPG

        (20,64 kB, 206 mal heruntergeladen, zuletzt: )

      • inetrunnerv3.JPG

        (26,02 kB, 211 mal heruntergeladen, zuletzt: )

    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )

    • Es kann

      1.Internetseiten öffnen^^
      2.Programme öffnen per Abkkürzungen
      3.Programme öffnen mit der Pfadangabe
      4.Button Liste wo man mit einem klick auf die Webseite gelangt
      5.Spamme Nachicht auf dem Eigenen Bildschirm :P
      6.Beenden buttons mit Abschieds Nachicht
      7.MsgBox generator (Idee von xDrago)

      Aber das steht doch auch alles da. Pobiers aus sonst lass es.