Hallo Leute,
ich bin gerade dabei ein Programm zu schreiben, welches Proxys aus Homepagen ausliest, sie dann auf Funktion testet und anschließend im Internet Explorer verwendet. Da ich noch relativ neu in Sachen AutoIt bin, wollte ich das zuerst ohne GUI machen, habe mich dann aber doch umentschieden.
Einige Funktionen stehen zwar schon, dank der großartigen Hilfe von Xenobiologist ;). Jedoch müssen diese noch in die GUI eingebunden werden.
Hier erstmal die GUI:
Spoiler anzeigen
; Start Script
[/autoit] [autoit][/autoit] [autoit];Includes
#include <GUIConstants.au3>
;Options
[/autoit] [autoit][/autoit] [autoit]Opt("TrayIconHide", 1)
Opt("TrayAutoPause", 0)
Opt("GUIResizeMode", 1)
Opt("GUIOnEventMode", 1)
;GUI creation
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\steve\desktop
$Form1_1 = GUICreate("AForm1", 754, 430, 280, 110)
$Tab1 = GUICtrlCreateTab(8, 8, 737, 393)
$Tab_Proxyssuchen = GUICtrlCreateTabItem("Proxys suchen")
$Group_Proxyssuchen = GUICtrlCreateGroup("Proxys suchen", 16, 40, 353, 353)
$Edit_URLs = GUICtrlCreateEdit("", 32, 88, 321, 249)
GUICtrlSetData(-1, "AEdit1")
$Button_Proxyssuchen = GUICtrlCreateButton("Proxys suchen", 32, 352, 97, 25, 0)
$Label_URLangeben = GUICtrlCreateLabel("Hier können die zu durchsuchenden URLs angegeben werden.", 32, 64, 304, 17)
$Button_URLimportieren = GUICtrlCreateButton("URLs importieren", 144, 352, 97, 25, 0)
$Button_URLexportieren = GUICtrlCreateButton("URLs exportieren", 256, 352, 97, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group_GefundeneProxys = GUICtrlCreateGroup("Gefundene Proxys", 384, 40, 353, 353)
$Button_Funktiontesten = GUICtrlCreateButton("Auf Funktion testen", 416, 352, 121, 25, 0)
$Button_gefunden_Dateispeichern = GUICtrlCreateButton("Als Datei speichern", 584, 352, 121, 25, 0)
$ListView_Gefunden = GUICtrlCreateListView("IP : Port", 400, 72, 321, 265)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Tab_Proxystesten = GUICtrlCreateTabItem("Proxys testen")
$Group_Proxystesten = GUICtrlCreateGroup("Proxys testen", 16, 40, 353, 353)
$Button_Proxystesten = GUICtrlCreateButton("Proxys testen", 56, 352, 121, 25, 0)
$Button_testen_Importieren = GUICtrlCreateButton("Importieren", 208, 352, 121, 25, 0)
$Edit_testen_IPs = GUICtrlCreateEdit("", 32, 96, 321, 241)
GUICtrlSetData(-1, "AEdit2")
$Label_testen1 = GUICtrlCreateLabel("Hier können entweder eigene oder die eben gesuchten Proxys", 32, 64, 299, 17)
$Label_testen2 = GUICtrlCreateLabel("auf Funktion getestet werden.", 32, 80, 145, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group_FunktionierendeProxys = GUICtrlCreateGroup("Funktionierende Proxys", 384, 40, 353, 353)
$Button_testen_Dateispeichern = GUICtrlCreateButton("Als Datei speichern", 584, 352, 121, 25, 0)
$Button_testen_Proxysverwenden = GUICtrlCreateButton("Proxys verwenden", 416, 352, 121, 25, 0)
$ListView_funktionieren = GUICtrlCreateListView("IP : Port", 400, 72, 321, 265)
GUICtrlSetOnEvent(-1, "AListView2Click")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Tab_Proxysverwenden = GUICtrlCreateTabItem("Proxys verwenden")
GUICtrlSetState(-1,$GUI_SHOW)
$Group_Proxysverwenden = GUICtrlCreateGroup("Proxys verwenden", 16, 40, 353, 353)
$Edit_verwenden_IPs = GUICtrlCreateEdit("", 32, 96, 321, 241)
GUICtrlSetData(-1, "AEdit3")
$Label_verwenden1 = GUICtrlCreateLabel("Hier können eigene oder die eben gesuchten bzw. getesteten Proxys", 32, 64, 330, 17)
$Label_verwenden2 = GUICtrlCreateLabel("für den Internet Explorer eingerichtet werden.", 32, 80, 216, 17)
$Button_Proxysverwenden = GUICtrlCreateButton("Proxys verwenden", 56, 352, 121, 25, 0)
$Button_verwenden_Importieren = GUICtrlCreateButton("Importieren", 208, 352, 121, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group_ProxyEinstellungen = GUICtrlCreateGroup("Proxy Einstellungen", 384, 40, 353, 353)
$Group_Wechselintervall = GUICtrlCreateGroup("Wechselintervall", 392, 64, 337, 105)
$Input_Sekunden = GUICtrlCreateInput("10", 400, 136, 137, 21)
$Radio_keinWechsel = GUICtrlCreateRadio("kein Wechsel", 400, 88, 113, 17)
$Radio_Wechsel = GUICtrlCreateRadio("Wechsel (Sekunden)", 400, 112, 121, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
$MenuItem2 = GUICtrlCreateMenu("&Datei")
$MenuItem4 = GUICtrlCreateMenuItem("Optionen", $MenuItem2)
$MenuItem3 = GUICtrlCreateMenuItem("Beenden", $MenuItem2)
$MenuItem1 = GUICtrlCreateMenu("&About")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Sleep(100)
WEnd
; Funktionen
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func AListView2Click()
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit]Da dies mein erstes Projekt ist, bitte ich um Feedback und Verbesserungsvorscläge, da ich mir noch nicht so ganz sicher bin, ob das alles so passt 
gruß
