Setz doch die Variable $tempF1 auf Global?
Beiträge von Schrubber
-
-
[autoit]
$vari = 1
[/autoit][autoit][/autoit][autoit]if($vari = 1) Then
[/autoit][autoit][/autoit][autoit]
HotKeySet("{K}", "_function1")
Else
HotKeySet("{K}", "_function2")
EndIfwhile 1
[/autoit][autoit][/autoit][autoit]
Sleep(100)
WEndFunc _function1()
[/autoit][autoit][/autoit][autoit]
$vari = 2
;Was das machen soll
;........
$vari = 1
EndFuncFunc _function2()
[/autoit]
;NIX
EndFunc -
Bei mir zu haust am Pc ist der IE zu 100% entfernt.
-
[autoit]
[/autoit]
While ProcessExists($netskatexe)
;Hauptschleife Wartet auf Fortsetzen
If WinExists("Daten zum Fortsetzen einer Runde exportieren") Then
;If MsgBox(4, "Auswahl", "Automatisch ist JA" & @CRLF & "Selbst wählen = NEIM") = 6 Then
While WinActive("Daten zum Fortsetzen einer Runde exportieren")
If MsgBox(4, "Auswahl", "Automatisch ist JA" & @CRLF & "Selbst wählen = NEIM") = 6 Then
ControlSetText("Daten zum Fortsetzen einer Runde exportieren", "", "Edit1", $mail_forts)
Send("{ENTER}")
Sleep(10000)
;MsgBox(0, "", "Ich sende Daten ab", 2)
ControlClick("Daten zum Fortsetzen einer Runde exportieren", "", "[ID:64]")
Sleep(10000)
Else
ExitLoop
EndIf
WEnd
EndIf
EndIf
WEnd -
Ich würds ggf. nicht in ein unbekanntes Format setzen sondern vll in eine .wav (vorrausgesetzt, es sind andere vorhanden)
-
Hey.
Kann mir von euch jemand vielleicht die KeyValue von MausradAuf und MausradAb sagen?
Danke
-
-
-
-
shell.....?
Und setz doch
[autoit]#AutoIt3Wrapper_icon=your_icon.ico
[/autoit]ganz oben hin. Beim Compilen macht ers dann
-
[autoit]
#include-once
[/autoit][autoit][/autoit][autoit][/autoit][autoit];===============================================================================
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]
;
; Function Name: _INetGetSourcePost()
; Description: Gets the source from an URL without writing a temp file and you can send a Post.
; Parameter(s): $sURL = The URL of the site.
; $sPost = The Post to send
; Requirement(s): -
; Return Value(s): On Success - Return a array with $aReturn[0] = Backheader and $aReturn[1] = Sourcecode
; On Failure - 0 and sets @ERROR
; @error = 1: Post or URL is nothing
; @error = 2: Error by RegularExpression
; @error = 3: $sHost or $sHttp1 is nothing
; @error = 4: Can not get IP of Host
; @error = 5: Can not connect to host
; @error = 6: Nothing can be send
; @error = 7: Connection abborted while receiving
; Author(s): GtaSpider
;
;===============================================================================Func _INetGetSourcePost($sURL, $sPost)
[/autoit]
Local $iSocket, $sHeader, $sRecv, $iIP, $sHost, $aRegExp, $sHttp1,$iErr,$iSend,$aReturn[2]
If $sURL = '' OrOr $sPost = '' Then Return SetError(1, 0, 0)
If StringLeft($sURL, 7) <> 'http://' AndAnd StringLeft($sURL, <> 'https://' Then $sURL = "http://" & $sURL
If StringRight($sURL, 1) <> "/" Then $sURL &= "/"
$aRegExp = StringRegExp($sURL, "http?://(.*?)/", 3)
If @error Then Return SetError(2, 0, 0)
$sHost = $aRegExp[0]
If $sHost = '' Then Return SetError(3, 0, 0)
$sHttp1 = StringTrimLeft($sURL,StringInStr($sURL,"/",-1,3)-1)
If $sHttp1 = '' Then Return SetError(3, 0, 0)
$sHeader = "POST " & $sHttp1 & " HTTP/1.1" & @CRLF & _
"Host: " & $sHost & @CRLF & _
"User-Agent: AutoIt v3" & @CRLF & _
"Content-Length: " & StringLen($sPost) & @CRLF & @CRLF & $sPost
TCPStartup() ;If not already done
$iIP = TCPNameToIP($sHost)
If $iIP = '' OrOr StringInStr($iIP, ".") = 0 Then Return SetError(4, 0, 0)
$iSocket = TCPConnect($iIP, 80)
If @error OrOr $iSocket < 0 Then Return SetError(5, 0, 0)
$iSend = TCPSend($iSocket, $sHeader)
If @error OrOr $iSend < 1 Then Return SetError(6, 0, 0)
While 1
$sRecv = TCPRecv($iSocket, 1024)
$iErr = @error
If $sRecv <> '' Then
While 1
$sRecv &= TCPRecv($iSocket, 1024)
If @error Then ExitLoop 2
WEnd
EndIf
If $iErr Then Return SetError(7,0,0)
WEnd
$aReturn[0] = StringLeft($sRecv,StringInStr($sRecv,@CRLF&@CRLF)-1)
$aReturn[1] = StringTrimLeft($sRecv,StringLen($aReturn[0])+4)
Return $aReturn
EndFunc ;==>_INetGetSourcePostDamit kriegst du schonmal den Quelltext
-
[autoit]
do
[/autoit]
Sleep(20)
$msg = GUIGetMsg()
Select
Case $msg = $pngname1
ShellExecute("http://www.test.de")
EndSelect
until GUIGetMsg() = $GUI_EVENT_CLOSENö
[autoit]
[/autoit][autoit][/autoit][autoit]
While 1
$msg = GUIGetMsg()
Switch $msg
Case $$GUI_EVENT_CLOSE
;Was er machen soll, falls das Programm geschlossen wird.Case $pngname1
[/autoit]
ShellExecute("http:((http://www.test.de")
EndSwitch
WEnd -
Zu dem anklickbaren:
Du gibst deiner PNG eine Variable und rufst sie per Case $Variable auf
-
achso
Dann stell doch die Datei, wo die Drops drinstehen und was du verändern willst, einfach hier rein
-
Dropeditor sind für mich Programme, die entweder looten oder droppen. Und das würde in die Spalte "Bots" laufen
-
Sorry, stop mal
Was soll das Programm am Ende, wenn es fertig ist, machen?
-
"Machen sie einen IQ Test und lassen sie sich ihr Ergebnis per SMS zuschicken!"
Allein sowas zeugt schon von Dummheit, in so ne Abofalle zu tappen
Für mich ist eine Hochbegabung nicht, dass jemand weiß, in dem wievielten Breitengrad und Längengrad sich Belgrad befindet oder der alle US Präsidenten mit Vornamen, Zunamen und geschlechtliche Orientierung auswendig kennt.
Ich war damals auch bei einem solchem "Test" und die haben mir das richtig versaut. Mein Ergebnis war damals 139, was stand in dem Protokoll?
"Tim hat im Vergleich zu den anderen getesteten mit 98% gleiche oder bessere Ergebnisse...
Die hätten dieses "gleiche" ruhig streichen können.
Das zeigt, wie bescheuert die Leute eigentlich sind.Aber sagen wirs so
Am logischen Denkvermögen kann man eigentlich schon sagen, ob man Hochbegabt ist.Wer logische Verknüpfungen zwischen 2 voneinander scheinbar unterschiedlichen Fällen ziehen kann und somit aufs Ergebnis kommt ist für mich jemand, der den Titel Hochbegabt verdient. Und nicht solche 45jährigen alten Säcke auf RTL, die meinen, sie wären der Knüller mit ihren auswendiggelernten Mathekünsten... Dieser Professor dort, der sich einen kloppt, weil er die 22te Wurzel aus 195648949444949 kennt...
Und an Schulnoten kann ichs schon festmachen
In meiner Schulzeit hab ich immer einen Schnitt von 3,9 gehabt. Also 5-10 Klasse. Mittlere Reife ja, Quali nicht. Aber nicht, weil ich den Stoff net gerallt hab sondern, weil mir alles halt zu einfach war. Während wir in Informatik Word / Excel hatten, saß ich an 3d Modelling oder HTML, da ich das alles schon konnte. Und nicht wirklich meinen Vorstellungen vom interessanten Unterricht entsprachen Biologie, Chemie... pff..... Kann ichn feuchten drauf legen. Hat mich nie interessiert... Bio 4 Chemie 5-6...
Auch auf meine Tadel aus meiner Schulzeit bin ich net stolz Bekommen, weil ich die Lehrer mit meiner langeweile genervt hab. Ständig mit Nachbarn am labern, die anderen vom Unterricht abhalten usw... Zeichen für uninteressante Unterrichtsmethode
Nun bin ich auf nem Technischen Berufskolleg im ITA Zweig, wo ich Fachinformatiker mache. Was los? Schnitt 2,1... Schlechteste Note is ne 4 (1x)...
Aber des wollt ich nur mal gesagt haben Hatte grad Spaß am schreiben
Und meist haben die, die von sich glauben sie seien was besseres, weil vll die Quersumme ihres IQ´s durch 2 teilbar ist usw. voll einen an der Waffel.
Schrubber
-
wtf
Ruft doch einfach den Shutdown -f -t ZEIT auf und macht nen Kopf, der shutdown -a macht.. Das is auchn ShutdownManager ohne Schnickes
-
Das mit den Leerzeichen isn Bug, hab ich auch oft Er zeigt 3 an obwohl es nur 1 Zeilenumbruch ist.
-
Soo
Ich hab hier beim Praktikum nun mein Programm in die 1. Phase gebracht.
Was fehlt noch?
-Accountabfrage bei Serialregistration, ob bereits vorhanden ist.
-Email-Sendefunktion
-Vollversion registrieren
-FAQSpoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;; ______________________________________________
; / /|
; / / |
; / / |
; / / |
; /______________________________________________/ |
; | Author: Schrubber | |
; | Name: SafeThat | |
; | Version: 1.0 | /
; | Homepage: http://www.Schrubbershomepage.de | /
; | Date: 7. Juli 2010 | /
; | Thanks to: progandy (_MySQL UDF) | /
; |______________________________________________|/;Was noch fehlt:
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;Vollversion
;Emailsendefunktion
;EmailDaten
;Registerserial wegen Accountabfrage (ob vorhanden) nochmal überprüfen#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <mysql.au3>
#include <libMySQLdll.au3>
#include <Inet.au3>OnAutoItExitRegister("_cleanup")
[/autoit] [autoit][/autoit] [autoit]Global $MySQLConn
[/autoit] [autoit][/autoit] [autoit]
Global Const $toolname = "SafeThat Testversion"
Global Const $short = "Safethat"
Global Const $Username = "root"
Global Const $Password = "root"
Global Const $MySQLServerName = "localhost"
Global Const $dbname = "lolrofl"
Global Const $Database = $dbname
Global Const $table = "tool"
Global Const $link = "http://Schrubbershomepage.de"
Global Const $linkfaq = "http://Schrubbershomepage.de/Faq.html"
Global COnst $linkvollversion = "http://Schrubbershomepage.de/Vollversion.html"
Global $i_wunschaccount = ""
Global $i_wunschpasswort = ""
Global $login = 0_MySQL_InitLibrary()
[/autoit] [autoit][/autoit] [autoit]
If @error Then
TrayTip('Error', 'libmysql.dll konnte nicht gefunden werden', 10, 3)
Sleep(10000)
Exit
EndIfGlobal $MySQLConn = _MySQL_Init()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Connected = _MySQL_Real_Connect($MySQLConn, $MySQLServerName, $UserName, $Password, $Database)
If Not $Connected Then
TrayTip('Error', 'Verbindung zur Datenbank konnte nicht hergestellt werden', 10, 3)
Sleep(10000)
Exit
EndIf$GUI1 = GUICreate($toolname, 386, 332, 192, 124)
[/autoit] [autoit][/autoit] [autoit]
$dateimenu = GUICtrlCreateMenu("Datei")
$serialitem = GUICtrlCreateMenuItem("Serial registrieren", $dateimenu)
$datenitem = GUICtrlCreateMenuItem("Daten ändern", $dateimenu)
$vollversionitem = GUICtrlCreateMenuItem("Vollversion", $dateimenu)
$exititem = GUICtrlCreateMenuItem("Exit", $dateimenu)
$fragemenu = GUICtrlCreateMenu("?")
$kontaktitem = GUICtrlCreateMenuItem("Kontakt", $fragemenu)
$aboutitem = GUICtrlCreateMenuItem("About", $fragemenu)
$faqitem = GUICtrlCreateMenuItem("FAQ´s", $fragemenu)
$b_login = GUICtrlCreateButton("Login", 264, 256, 113, 25, $WS_GROUP)
$b_buyfull = GUICtrlCreateButton("Vollversion kaufen", 136, 257, 113, 23, $WS_GROUP)
$b_registerserial = GUICtrlCreateButton("Serial registrieren", 8, 256, 113, 25, $WS_GROUP)
$l_headline = GUICtrlCreateLabel($short, 50, 24, 260, 58)
GUICtrlSetFont(-1, 28, 800, 2, "Nightclub BTN")
$l_username = GUICtrlCreateLabel("by Schrubber",210, 94, 80, 17)
$i_username = GUICtrlCreateInput("", 104, 144, 233, 21)
$i_passwort = GUICtrlCreateInput("", 104, 176, 233, 21, $ES_PASSWORD)
$l_username = GUICtrlCreateLabel("Username", 40, 144, 52, 17)
$l_password = GUICtrlCreateLabel("Password", 40, 176, 50, 17)
$l_info = GUICtrlCreateLabel("Sie nutzen die", 40, 224, 74, 17)
$l_version = GUICtrlCreateLabel("Testversion", 112, 224, 59, 17)
GUICtrlSetColor(-1, 0xFF0000)
$l_leftinfo = GUICtrlCreateLabel("Verbleibende Zeit:", 16, 296, 90, 17)
$l_timeleft = GUICtrlCreateLabel("(No time)", 112, 296, 45, 17)
GUISetState(@SW_SHOW, $GUI1)While True
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsgCase $GUI_EVENT_CLOSE
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
ExitCase $b_login
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_login()Case $b_registerserial
[/autoit] [autoit][/autoit] [autoit]
_registerserial()Case $serialitem
[/autoit] [autoit][/autoit] [autoit]
_registerserial()Case $datenitem
[/autoit] [autoit][/autoit] [autoit]
_datenaendern()Case $exititem
[/autoit] [autoit][/autoit] [autoit]
ExitCase $faqitem
[/autoit] [autoit][/autoit] [autoit]
ShellExecute($linkfaq)Case $vollversionitem
[/autoit] [autoit][/autoit] [autoit]
_vollversion()Case $kontaktitem
[/autoit] [autoit][/autoit] [autoit]
_contact()Case $aboutitem
[/autoit] [autoit][/autoit] [autoit]
_about()Case $b_buyfull
[/autoit] [autoit][/autoit] [autoit]
ShellExecute($link)
EndSwitch
WEndFunc _login()
[/autoit] [autoit][/autoit] [autoit]
if(GUICTRLRead($b_login) = "Login") then
if(GuiCtrlRead($i_username) = "") then
MSGBOX(0, "Fehler", "Bitte geben sie einen Usernamen ein!")
elseif (GuiCtrlRead($i_passwort) = "") Then
MSGBOX(0, "Fehler", "Bitte geben sie ein Passwort ein.")
Else
$dbuserpw = _mysql_checklogin($MySQLConn, $table, GUICtrlRead($i_username))
If $dbuserpw = GUICtrlRead($i_passwort) Then
MsgBox(0, "Anmeldung erfolgreich", "Sie haben sich erfolgreich eingeloggt.")
;Versionscheck V = Vollversion
$version = _mysql_checkversion($MySQLConn, $table, GUICtrlRead($i_username))
if($version = "V") then
GuiCtrlSetData($l_version, "Vollversion")
GuiCtrlSetColor($l_version, 0x006400)
Else
GuiCtrlSetData($l_version, "Testversion")
GuiCtrlSetColor($l_version, 0xFF0000)
;Versionscheck Ende
EndIf;Timecheck TTMMJJJJ
[/autoit] [autoit][/autoit] [autoit]
$time = _mysql_checktime($MySQLConn, $table, GUiCtrlRead($i_username))
$abgelaufen = 0
GuiCtrlSetData($l_timeleft, $time)
if($time < "1") Then
$abgelaufen = 1
MSGBox(0, "Fehler", "Ihre Version ist abgelaufen. Zum Kauf der Vollversion / Verlängerung der Vollversion bitte auf 'Vollversion kaufen' drücken.")
GUICtrlSetData($b_login, "Exit")
Else
if($time < "30") Then
GuiCtrlSetColor($l_timeleft, 0x00FF00)
elseif($time < "20") Then
GuiCtrlSetColor($l_timeleft, 0xFFA500)
elseif($time < "10") Then
GuiCtrlSetColor($l_timeleft, 0xFF0000)
EndIf
GUICtrlSetData($b_login, "Weiter")
EndIf
;Timecheck EndeElse
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "Anmeldung fehlgeschlagen", "Bei der Anmeldung trat ein Fehler auf. Bitte überprüfen sie Ihren Account / Ihr Passwort.")
EndIf
EndIf
elseif (GUICTRLRead($b_login) = "Exit") Then
Exit
elseif(GUICtrlRead($b_login) = "Weiter") then
$login = 1
_startTool()
EndIf
EndFunc ;==>_loginFunc _registerserial()
[/autoit] [autoit][/autoit] [autoit]
$_1 = GUICreate("Serial registrieren", 301, 190, 400, 50)
$title = GUICtrlCreateLabel("Serial registrieren", 55, 10, 212, 34)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetFont(-1, 20)
$l_wunschaccount = GUICtrlCreateLabel("Account", 5, 50, 44, 20)
$i_wunschaccount = GUICtrlCreateInput("", 50, 48, 150, 21)
$l_wunschpasswort = GUICtrlCreateLabel("Passwort", 5, 80, 44, 20)
$i_wunschpasswort = GUICtrlCreateInput("", 50, 77, 150, 21, $ES_Password)
$part1 = GUICtrlCreateInput("", 5, 114, 50, 21)
GUICtrlSetLimit(-1, 5)
$part2 = GUICtrlCreateInput("", 65, 114, 50, 21)
GUICtrlSetLimit(-1, 5)
$part3 = GUICtrlCreateInput("", 125, 114, 50, 21)
GUICtrlSetLimit(-1, 5)
$part4 = GUICtrlCreateInput("", 185, 114, 50, 21)
GUICtrlSetLimit(-1, 5)
$part5 = GUICtrlCreateInput("", 245, 114, 50, 21)
GUICtrlSetLimit(-1, 5)
$b_sendserial = GUICtrlCreateButton("Abschicken", 20, 145, 70, 30, $WS_GROUP)
$b_help = GUICtrlCreateButton("Hilfe", 110, 145, 70, 30, $WS_GROUP)
$b_exitserial = GUICtrlCreateButton("Exit", 200, 145, 70, 30, $WS_GROUP)GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_Hide)
ExitLoopCase $b_exitserial
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_Hide)
ExitLoopCase $b_help
[/autoit] [autoit][/autoit] [autoit]
ShellExecute($linkfaq)Case $b_sendserial
[/autoit] [autoit][/autoit] [autoit]
$serial = GUICtrlRead($part1)&"-"&GUICtrlRead($part2)&"-"&GUICtrlRead($part3)&"-"&GUICtrlRead($part4)&"-"&GUICtrlRead($part5)
if(GUICtrlRead($i_wunschaccount) = "") Then
MSGBOX(0, "Fehler", "Bitte tragen sie einen Account ein.")
Elseif(GUICtrlRead($i_wunschpasswort) = "") Then
MSGBOX(0, "Fehler", "Bitte tragen sie ein Passwort ein.")
ElseIf(StringLen($serial) < 29) then
MSGBOX(0, "Fehler", "Ihr Serial ist nicht lang genug. Bitte überprüfen sie Ihre Eingabe!")
Else
_mysql_registerserial($MySQLConn, $table, $serial)
EndIfEndSwitch
[/autoit] [autoit][/autoit] [autoit]
WEndEndFunc ;==>_registerserial
[/autoit] [autoit][/autoit] [autoit]Func _datenaendern()
[/autoit] [autoit][/autoit] [autoit]
if($login = 0) Then ;Falls nicht eingeloggt
MSGBOX(0, "Fehler", "Sie müssen sich zuerst einloggen.")
Else
$versionabfrage = _mysql_checkversion($MySQLConn, $table, GUICtrlRead($i_username)) ;Abfrage aus der
if($versionabfrage = "V") Then
$version = "Vollversion"
Else
$version = "Testversion"
EndIf
$datenaendern = GUICreate("Daten ändern", 386, 330, 192, 124)
$l_title = GUICtrlCreateLabel("Userdaten", 98, 17, 201, 51)
GUICtrlSetFont(-1, 24, 800, 0, "Nightclub BTN")
$group1 = GUICtrlCreateGroup("Persönliche Daten", 24, 80, 337, 177)
$l_account = GUICtrlCreateLabel("Account", 82, 104, 44, 17)
$l_accountname = GUICtrlCreateLabel(GUICtrlRead($i_username), 136, 104, 32, 17)
$l_passwort = GUICtrlCreateLabel("Passwort", 79, 128, 47, 17)
$l_passwortwert = GUICtrlCreateLabel(GUICtrlRead($i_passwort), 136, 128, 22, 17)
$l_version = GUICtrlCreateLabel("Version", 88, 176, 39, 17)
$l_versionsart = GUICtrlCreateLabel($version, 136, 176, 59, 17)
if($l_versionsart = "Vollversion") Then
GUICtrlSetColor($l_versionsart, 0x006400)
Else
GUICtrlSetColor($l_versionsart, 0xFF0000)
EndIf
$l_zeit = GUICtrlCreateLabel("Noch gültig (Tage)", 32, 200, 92, 17)
$l_zeitwert = GUICtrlCreateLabel("", 136, 200, 40, 17)
$l_serialwert = GUICtrlCreateLabel("", 128, 224, 191, 17)
$l_serial = GUICtrlCreateLabel("Serial", 96, 224, 30, 17)
$b_passwort = GUICtrlCreateButton("Passwort ändern", 24, 280, 81, 33, $WS_GROUP)
$b_registerserial2 = GUICtrlCreateButton("Serial registrieren", 128, 280, 97, 33, $WS_GROUP)
$b_quit = GUICtrlCreateButton("Exit", 248, 280, 113, 33, $WS_GROUP)
GUISetState(@SW_SHOW)While 1
[/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_Hide) ;Verstecken
ExitLoop ;Aus Schleife entfliehenCase $b_registerserial2
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_Hide); Verstecken
_registerserial(); Serialregistrationsvorgang
ExitLoop
Case $b_quit
GUISetState(@SW_Hide) ;Verstecken
ExitLoop
Case $b_passwort ;Passwortänderung
$newpw = InPutBox("Neues Passwort", "Wie soll ihr neues Passwort lauten?")
EndSwitch
WEnd
EndIf
EndFunc ;==>_datenaendernFunc _vollversion()
[/autoit] [autoit][/autoit] [autoit]
ShellExecute($linkvollversion)
EndFunc ;==>_vollversionFunc _contact()
[/autoit] [autoit][/autoit] [autoit]
$gui3 = GUICreate("Kontaktformular", 594, 443, 192, 124)
$l_absender = GUICtrlCreateLabel("Absender", 40, 40, 49, 17)
$group1 = GUICtrlCreateGroup("Kontaktformular", 16, 16, 561, 377)
$l_betreff = GUICtrlCreateLabel("Betreff", 56, 106, 35, 17)
$i_absender = GUICtrlCreateInput("", 96, 40, 137, 21)
$l_absender = GuiCtrlCreateLabel("Email", 56,72,30,30)
$i_email = GUICtrlCreateInput("", 96, 72, 137, 21)
$i_betreff = GUICtrlCreateInput("", 96, 106, 137, 21)
$i_nachricht = GUICtrlCreateEdit("", 40, 152, 513, 225)
$b_send = GUICtrlCreateButton("Senden", 56, 397, 100, 33, $WS_GROUP)
$b_reset = GUICtrlCreateButton("Reset", 246, 397, 100, 33, $WS_GROUP)
$b_exit = GUICtrlCreateButton("Schließen", 432, 397, 97, 33, $WS_GROUP)
GUISetState(@SW_SHOW);Hier müssen die Daten der Email-Services noch eingegeben werden.
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_Hide)
ExitLoopCase $b_exit
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_Hide)
ExitLoopCase $b_reset
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($i_nachricht, "")Case $b_send
[/autoit] [autoit][/autoit] [autoit]
;Hier muss die Email-Absendefunktion noch eingebaut werden.
EndSwitch
WEnd
EndFunc ;==>_contactFunc _about()
[/autoit] [autoit][/autoit] [autoit]
$_1 = GUICreate("About the Tool", 301, 208, 400, 50)
$group1 = GUICtrlCreateGroup("", 10, 10, 177, 80)
$group1text = GUICtrlCreateLabel("About the Tool", 32, 10, 72, 15)
GUICtrlCreateLabel("SafeThat", 15, 25, 160, 12)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateLabel("Tim 'Schrubber' Lübbe", 15, 45, 160, 15)
GUICtrlSetColor(-1, 0xFF0000)
$aboutlink = GUICtrlCreateLabel($link, 15, 65, 160, 15)
GUICtrlSetColor(-1, 0x0000FF)
$group2 = GUICtrlCreateGroup("", 10, 100, 285, 100)
GUICtrlCreateLabel("Information", 30, 100, 52, 12)
GUICtrlCreateLabel("Dieses Programm ist ein Schutztool, um Software durch"&@CRLF&"eine in der Datenbank eingetragene Zugriffsberechtigung"&@CRLF&"zu nutzen. Dieses Programm ermöglicht Ihnen, Ihr"&@CRLF&"Programm mit sog. Serials zu sperren, sodass nur"&@CRLF&"bestimmte Kunden mit einem gültigen Account Zugriff auf"&@CRLF&"die Software haben.", 13, 113, 276, 84)
GUISetState(@SW_SHOW)While 1
[/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_Hide)
ExitLoopCase $aboutlink
[/autoit] [autoit][/autoit] [autoit]
_openlink()
EndSwitch
WEnd
EndFunc ;==>_aboutFunc _startTool()
[/autoit] [autoit][/autoit] [autoit]
if($login = 0) Then
MSGBOX(0, "Fehler", "Sie müssen sich zuerst einloggen.")
Else
;/////////////////////////////////
;Hier komm das normale Tool rein!!
;/////////////////////////////////
EndIf
EndFunc ;==>_startToolFunc _mysql_checklogin($connection, $table, $account)
[/autoit] [autoit][/autoit] [autoit]
_MySQL_Real_Query($connection, StringFormat("SELECT `Password` FROM `%s` WHERE `Account` = '%s'", $table, _MySQL_Real_Escape_String($connection, $account)))
If @error Then
Return SetError(-1, @error, '')
Else
Local $hResult = _MySQL_Store_Result($connection)
Local $aReturn = _MySQL_Fetch_Row_StringArray($hResult)
_MySQL_Free_Result($hResult)
If UBound($aReturn) = 0 Then
Return SetError(-2, @error, '')
Else
Return $aReturn[0]
EndIf
EndIf
EndFunc ;==>_mysql_checkloginFunc _mysql_checkversion($connection, $table, $account)
[/autoit] [autoit][/autoit] [autoit]
_MySQL_Real_Query($connection, StringFormat("SELECT `Version` FROM `%s` WHERE `Account` = '%s'", $table, _MySQL_Real_Escape_String($connection, $account)))
If @error Then
Return SetError(-1, @error, '')
Else
Local $hResult = _MySQL_Store_Result($connection)
Local $aReturn = _MySQL_Fetch_Row_StringArray($hResult)
_MySQL_Free_Result($hResult)
If UBound($aReturn) = 0 Then
Return SetError(-2, @error, '')
Else
Return $aReturn[0]
EndIf
EndIf
EndFunc ;==>_mysql_checkversionFunc _mysql_checktime($connection, $table, $account)
[/autoit] [autoit][/autoit] [autoit]
_MySQL_Real_Query($connection, StringFormat("SELECT `Time` FROM `%s` WHERE `Account` = '%s'", $table, _MySQL_Real_Escape_String($connection, $account)))
If @error Then
Return SetError(-1, @error, '')
Else
Local $hResult = _MySQL_Store_Result($connection)
Local $aReturn = _MySQL_Fetch_Row_StringArray($hResult)
_MySQL_Free_Result($hResult)
If UBound($aReturn) = 0 Then
Return SetError(-2, @error, '')
Else
Return $aReturn[0]
EndIf
EndIf
EndFunc ;==>_mysql_checktimeFunc _mysql_checkserial($connection, $table, $account)
[/autoit] [autoit][/autoit] [autoit]
_MySQL_Real_Query($connection, StringFormat("SELECT `Serial` FROM `%s` WHERE `Account` = '%s'", $table, _MySQL_Real_Escape_String($connection, $account)))
If @error Then
Return SetError(-1, @error, '')
Else
Local $hResult = _MySQL_Store_Result($connection)
Local $aReturn = _MySQL_Fetch_Row_StringArray($hResult)
_MySQL_Free_Result($hResult)
If UBound($aReturn) = 0 Then
Return SetError(-2, @error, '')
Else
Return $aReturn[0]
EndIf
EndIf
EndFunc ;==>_mysql_checkserialFunc _mysql_checkmail($connection, $table, $account)
[/autoit] [autoit][/autoit] [autoit]
_MySQL_Real_Query($connection, StringFormat("SELECT `Mail` FROM `%s` WHERE `Account` = '%s'", $table, _MySQL_Real_Escape_String($connection, $account)))
If @error Then
Return SetError(-1, @error, '')
Else
Local $hResult = _MySQL_Store_Result($connection)
Local $aReturn = _MySQL_Fetch_Row_StringArray($hResult)
_MySQL_Free_Result($hResult)
If UBound($aReturn) = 0 Then
Return SetError(-2, @error, '')
Else
Return $aReturn[0]
EndIf
EndIf
EndFunc ;==>_mysql_checkmailFunc _mysql_registerserial($connection, $table, $serial)
[/autoit] [autoit][/autoit] [autoit]
$accabfrage = _MySQL_real_Query($connection, StringFormat("SELECT `Account` FROM `%s` WHERE `Account` = '%s';", $table, GUICTRLRead($i_wunschaccount)))
MSGBOX(0, "", $accabfrage)
$query = _MySQL_Real_Query($connection, StringFormat("SELECT `Account` FROM `%s` WHERE `Serial` = '%s';", $table, $serial))
If $query Then Return SetError(1,0,0) ; Fehler bei der AbfrageLocal $pResult = _MySQL_Store_Result($connection)
[/autoit] [autoit][/autoit] [autoit]
If $pResult Then
Local $aResult = _MySQL_Fetch_Row_StringArray($pResult)
_MySQL_Free_result($pResult)
If Not IsArray($aResult) Then
MSGBOX(0, "Fehler", "Dieser Serial ist nicht vorhanden. Bitte wenden sie sich an das Support-Team.")
Return SetError(5,0,0) ; Keine Serial vorhanden
ElseIf $aResult[0] <> '' Then
MSGBOX(0, "Fehler", "Ihr Serial ist bereits benutzt. Bitte wenden sie sich an das Support-Team.")
Return SetError(2,0,0) ; Es gibt bereits einen Account in der Datenbank
EndIf
Else
MSGBOX(0, "Fehler", "Serial konnte nicht gefunden werden.")
Return SetError(4,0,0) ; Keine Serial vorhanden
EndIfIf $MYSQL_SUCCESS = _MySQL_Real_Query($connection, "UPDATE `"&$table&"` SET `Account` = '"&GUICtrlRead($i_wunschaccount)&"', `Password` = '"&GUICtrlRead($i_wunschpasswort)&"', `Lastcheck` = '"&@MDAY&@MON&@YEAR&"' WHERE `Serial` = '"&$serial&"';") Then
[/autoit] [autoit][/autoit] [autoit]
;$pResult = _MySQL_Store_Result($connection) ; kann man machen, ist hier aber nicht nötig so weit ich weiß
;If $pResult Then _MySQL_Free_result($pResult)
MSGBOX(0, "Erfolgreich", "Sie haben den Serial erfolgreich registriert.")
Return 1
Else
MSGBOX(0, "Fehler", "Es trat bei der Registration ein Fehler auf. Bitte probieren sie es später erneut.")
Return SetError(3,0,0) ; Fehler beim UPDATE
EndIf
EndFunc ;==>_mysql_registerserialFunc _cleanup()
[/autoit] [autoit][/autoit] [autoit]
If $MySQLConn Then _MySQL_Close($MySQLConn)
_MySQL_EndLibrary()
EndFunc ;==>_cleanupFunc _openlink()
[/autoit] [autoit][/autoit] [autoit]
ShellExecute($link)
EndFunc ;==>_openlinkFunc _quit()
[/autoit]
Exit
EndFuncDanke nochmal an progandy wegen der _MySQL UDF und den Hilfen
Es fehlt noch ein wenig an dem Script, das Design lässt einwenig zu wünschen über, aber es funktioniert, soweit es der bisherige Stand zulässt.
Irgendwelche Bugs oä bitte melden.
Was NICHT funktioniert:
FAQ Seite
Vollversion kaufen (Extra Internetseite)
KontaktabsendeWer weiterbauen will (Die Funktionen, die noch fehlen), möge dies tun und mir dann schicken, damit ichs einbauen kann.
Bitte auch oben den Hinweis (Kommentarzeilen) NICHT löschen.Danke
(Bei Fragen, was wo verändert werden muss, bitte einfach melden.
Auch die Online-Datenbank, die erstellt werden muss, werde ich hier heute Abend erst posten.Aber was ich sagen kann:
Serial|Account|Passwort|Version|Time|Lastcheck
Text29|Test20|Text20|Text1|Int|TextLastcheck ist der Aufbau: DDMMYYYY
Time wird immer vorher eingestellt und passend dem Serial gewählt (Halt vll 30 Tage Testversion oder 2Monate durchgehend)
Version ist entweder ein "V" für Vollversion oder ein "T" für Testversion.
Serial ist ein Text im Format: xxxxx-xxxxx-xxxxx-xxxxx-xxxxx (MIT BINDESTRICHE)Mit Grüßen,
Schrubber