WAT! oha. krass...
mist
das ja jetz voll peinlich 
Beiträge von Kev
-
-
also upload geht nicht. da bin ich mir zu 99,9 % sicher. da könnter eig probieren bis ihr grün werdet.
-
geht glaub ich darum, das du kein multiupload/download via bots/tool/automatisierung etc machen kannst.
-
wie gesagt wird nicht gehen
via bplaced. das war der grund warum ich bissl mit gun-Food getratscht hab und nu mein "kev.autoit.de" ftp hab 
-
bplaced.net = BÖSE
geht nit
soweit ich weiß...die blocken dat //edit hehe
jetz hab ich dein pw
es heißt "meinpw" 
-
haste noch die .ini?^^
-
stimmt dll fehlt. aber wegen der dll kommt kein nonarray error
bzw. die dll muss ins system32 just as info -
joa da werden noch mehr kommen du hast zb auch keine
recycle2.bmpmusst dir schon deine eigene funktion basteln
-
sure
babykrams eigentlich.
schau dir mal die Imagesearch.au3 an.//edit
*auskrams*
//edit 2
bsp:
[autoit]#include <ImageSearch.au3>
[/autoit][autoit][/autoit][autoit]$x1=0
[/autoit][autoit][/autoit][autoit]
$y1=0HotKeySet( "+s", "Start" )
[/autoit][autoit][/autoit][autoit]
HotKeySet( "+e", "end" )While 1
[/autoit][autoit][/autoit][autoit]
Sleep (100)
WEndFunc Start()
[/autoit][autoit][/autoit][autoit][/autoit]
While 1
$result = _ImageSearch("recycle2.bmp",1,$x1,$y1,0)
if $result=1 Then
MouseMove($x1,$y1,3)
MsgBox(0,"Found","Found a empty recycle bin here...")
EndIf
WEnd
EndFunc//mittagspause !!!!!!
-
Es wird hier nicht über Bots geredet...
Pls close thread.
omg du bist der 3te
lass mich auch bitte bitte bitte !!! ich will unbedingt !!!
/ironie off ^^-autoit.de & bots = böse
verboten -
Meine Güte ...
Guck dir mal die MemoryOpen() an !nanana du warst auch nicht besser..ich weiß noch wo du in der shoutbox gefragt hast wie man ne msgbox macht.
jedem seine zeit
-
sry
vergessen...zum thema Beispiel musste dich noch etwas gedulden, hab etwas prüfungsstress dsw. hab ich weniger zeit
wenn ich mein projekt fertig hab,brauch ich auch ne funktion um die db abzurufen, das bastel ich dann.Gruß
-
Ich seh da keine 2 GUi's und die eine GUI wird nur aufgerufen wenn er was recieved.
-
Hey.
Ich habe ein Script welches sobald es daten via. TCP recieved eine GUI darstellt mit dem Inhalt.
Darauf befindet sich ein Button, der heißt "OK".Sprich
if $recv <> "" then
showgui()
EndifWenn man Ok drückt wird ein GUIdelete ausgeführt.
Aber irgendwie hängt er dann noch in der func. Ich sag dem nämlich am das der der Func eine msgbox auftauchen soll.Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <EditConstants.au3>
#include <Array.au3>Opt("TrayOnEventMode",1)
[/autoit] [autoit][/autoit] [autoit]
Opt("TrayMenuMode", 1)
Traysetonevent($TRAY_EVENT_SECONDARYDOWN,"SpecialEvent")
Traysetonevent($TRAY_EVENT_PRIMARYDOWN,"SpecialEvent")
TraySetState()
global $tcp,$corner,$xD, $recv
;==============================================
;==============================================
;SERVER!! Start Me First !!!!!!!!!!!!!!!
;==============================================
;==============================================
test()
Func test()
; Set Some reusable info
; Set your Public IP address (@IPAddress1) here.
; Local $szServerPC = @ComputerName
; Local $szIPADDRESS = TCPNameToIP($szServerPC)
Local $szIPADDRESS = @IPAddress1
Local $nPORT = 33891
Local $MainSocket, $GOOEY, $edit, $ConnectedSocket, $szIP_Accepted
Local $msg; Start The TCP Services
[/autoit] [autoit][/autoit] [autoit]
;==============================================
TCPStartup(); Create a Listening "SOCKET".
[/autoit] [autoit][/autoit] [autoit]
; Using your IP Address and Port 33891.
;==============================================
$MainSocket = TCPListen($szIPADDRESS, $nPORT); If the Socket creation fails, exit.
[/autoit] [autoit][/autoit] [autoit]
If $MainSocket = -1 Then Exit; Initialize a variable to represent a connection
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;==============================================
$ConnectedSocket = -1;Wait for and Accept a connection
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;==============================================
Do
$ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1; Get IP of client connecting
[/autoit] [autoit][/autoit] [autoit]
$szIP_Accepted = SocketToIP($ConnectedSocket)while 1 ; GUI Message Loop
[/autoit] [autoit][/autoit] [autoit]
;==============================================
$msg = GUIGetMsg(); GUI Closed
[/autoit] [autoit][/autoit] [autoit]
;--------------------
If $msg = $GUI_EVENT_CLOSE Then ExitLoop; Try to receive (up to) 2048 bytes
[/autoit] [autoit][/autoit] [autoit]
;----------------------------------------------------------------
$recv = TCPRecv($ConnectedSocket, 2048); If the receive failed with @error then the socket has disconnected
[/autoit] [autoit][/autoit] [autoit]
;----------------------------------------------------------------
If @error Then ExitLoop; Update the edit control with what we have received
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;----------------------------------------------------------------If $recv <> "" Then
[/autoit] [autoit][/autoit] [autoit]
display()
EndifIf $ConnectedSocket <> -1 Then TCPCloseSocket($ConnectedSocket)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]TCPShutdown()
[/autoit] [autoit][/autoit] [autoit]Wend
[/autoit] [autoit][/autoit] [autoit]
test()
Endfunc; Function to return IP Address from a connected socket.
[/autoit] [autoit][/autoit] [autoit]
;----------------------------------------------------------------------
Func SocketToIP($SHOCKET)
Local $sockaddr, $aRet$sockaddr = DllStructCreate("short;ushort;uint;char[8]")
[/autoit] [autoit][/autoit] [autoit]$aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
"ptr", DllStructGetPtr($sockaddr), "int*", DllStructGetSize($sockaddr))
If Not @error And $aRet[0] = 0 Then
$aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
If Not @error Then $aRet = $aRet[0]
Else
$aRet = 0
EndIf$sockaddr = 0
[/autoit] [autoit][/autoit] [autoit]Return $aRet
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
EndFunc ;==>SocketToIPfunc display()
[/autoit] [autoit][/autoit] [autoit]
Guicreate("* Message Info",450,300)
GuictrlcreateLabel("Message from *",10,30,400)
Guictrlsetfont(-1,12)
Guictrlsetstate(-1,$GUI_DISABLE)
Guictrlcreatepic(@scriptdir & "\*.jpg",310,10,130,38)
$mess = GuictrlcreateEdit("",10,70,430,150,$ES_LEFT)
Guictrlsetstate(-1,$GUI_DISABLE)
Guictrlcreatelabel(" For More Information please call * or write an Email to *",10,230,400)
Guictrlsetstate(-1,$GUI_DISABLE)
$exit = Guictrlcreatebutton("Okay, I've read !",160,270,120,25)
GUISetState(@SW_SHOW) ; Zeigt das leere GUI-Fenster
Guictrlsetdata($mess,$recv)While 1
[/autoit]
$msg = GUIGetMsg()
switch $msg
case $exit
test()
Guidelete()
Endswitch
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
EndfuncAch anders
der soll einfach wenn das guideleted worden ist, wieder mit dem listen anfangen und abfragen ob er daten via. tcp bekommt un wenn dann wieder die gui. usw. usw.aber sobald ichn guidelete mache geht das script aus. bzw wenn ich sage ruf die func nach dem del wieder auf. bleibts script zwar da aber es passiert nichts. sobald ich neu sende.
-
der begrenzt damit das ganze input auf 30. ich will aber sagen wenn 30 zeichen dann @crlf dann wieder 30
//edit
ich sollte evntl noch erwähnen dass in das Input nichts direkt reingeschrieben wird. Sondern per TCP gesendet wird und dann via. Guictrlsetdata reingesetzt wird.
und das was da per TCP kommt soll in die Inputbox auf 30 zeichen begrenzt sein.un denne @crlf^^
-
Hey,
ich möchte bei einem Inputfeld,die Zeichen anzahl begrenzen.
sobald 30 zeichen gesetzt sind soll er ein @crlf machen und wieder 30 max.usw.
weiß jemand wie?
gruß
-
hat sich erledigt hab ne gui gebastelt
da ich nochn pic reinmachen will.trotzdem thx
-
hey.
Ich brauche sowas hier:
[autoit]
[/autoit]
$corner = "Diese Schrift sollte grau hinterlegt sein"
Guictrlsetstate($corner,$GUI_DISABLE) ;geht nur bei GUI Controls ich weiß brauche sowas jetzt für diesn text.
msgbox(0,"",$corner) ; hier $corner (grau hinterlegt)wüsste jemand wie?
gruß
-
Hey,
hab mein Crypt Key Generator jetzt auch mal fertig.
Funktionen:
Random Keys werden erstellt.
Gecrypted in File geschrieben.
In die Datenbank übertragen.Datenbank:
Keys werden in die DB geschrieben und im Table : "Used" wird standardmäßig 0 gesetzt.
Benutzung:
Falls ihr ein Programm habt, und für die Installation ein Key benutzt wird.
Muss der erhaltene Key entcrypted & überprüft ob er im File enthalten ist.
Wenn ja gibt es ein DB connect und die Flag für den Key bei "used" wird auf 1 gesetzt.
Somit ist der Key nun ungültig.
Bsp werd ich noch reinpacken, sobald ich das Ding mal benutzeConfig.txt: (nur für Key Generator)
ZitatUsername: <PUT USERNAME HERE>
Passwort: <PUT PASSWORD HERE>
DATABASE: <PUT DATABASE HERE>
SERVER : <PUT HOSTNAME HERE>
PORT : <PUT PORT HERE>
SELECTDB: <PUT SELECTED DB HERE>Download ( zu groß für Anhang )
Bsp für Abfrage:
Spoiler anzeigen
[autoit]$User = "root"
[/autoit] [autoit][/autoit] [autoit]
$Host = "localhost"
$Pass = ""
$Database = "keys"
$Port = "3306"Func mysql()
[/autoit] [autoit][/autoit] [autoit]
If Not _EzMySql_Startup() Then ;startup
MsgBox(0, "Error Starting MySql", "Error: " & @error & @CR & "Error string: " & _EzMySql_ErrMsg())
Exit
EndIf
If Not _EzMySql_Open($Host, $User, $Pass, $Database, $Port) Then ;DB connect
MsgBox(0, "Error opening Database", "Error: " & @error & @CR & "Error string: " & _EzMySql_ErrMsg())
Exit
EndIfIf Not _EzMySql_SelectDB("keys") Then ;DB select
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "Error setting Database to use", "Error: " & @error & @CR & "Error string: " & _EzMySql_ErrMsg())
Exit
EndIf$select = 'select `used` from licence where licence = 'DER_ZU_ÜBERPRÜFENDE_KEY'' ;(JE NACH DB abändern)
[/autoit]
Global $aOk = _EzMySql_GetTable2d($select) ;ABFRAGE OB KEY IN DB UNBENUTZT IN DB STEHT
$ki = UBound($aOk)
If $ki = 1 Then ;ABFRAGE OB KEY VORHANDEN IST
GUICtrlSetData($abfrage, "Der Key für die Installation ist ungültig!" & @CRLF & "Programm wird in Kürze beendet.")
MsgBox(0, "Achtung", "Dieser Key ist ungültig!", 4)
Exit
Else
If $aOk[1][0] = 0 Then ;ABFRAGE OB KEY USED ODER UNUSED IST
TrayTip("", "Key gültig, fahre fort...", 2, 1)
$insert = 'update licence set `used` = 1 where licence = 'DER_ZU_ÜBERPRÜFENDE_KEY'' ; SETZT KEY FLAG AUF 1 - UM UNGÜLTIG ZU MACHEN - DA KEY FÜR INSTALL BENUTZT WURDE
If Not _EzMySql_Exec($insert) Then ;prüft ob die flag von USED geändert wurde
MsgBox(0, "Error", "Fehler beim update der Lizenz Datenbank") ;falls nicht exit
Exit
EndIf
Else
GUICtrlSetData($abfrage, "Der Key für die Installation ist ungültig!" & @CRLF & "Programm wird in Kürze beendet.") ; Key schon benutzt? wenn ja EXIT
TrayTip("", "Der Key für die Installation ist ungültig", 2, 1)
Sleep(8000)
Exit
EndIf
EndIf
EndFunc ;==>mysql
Gruß Kev -
das komische ist.
wenn ichs so wie bei dir mach, steht bei array nix drin
auf meine art:
in der messagebox displayt er alle items die in der list sind.
trägt aber iwie nur den ersten in die db ein.why?
[autoit]
:oFunc mysql()
[/autoit]
If Not _EzMySql_Startup() Then
MsgBox(0, "Error Starting MySql", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
Exit
EndIf
$Pass = "pass"
If Not _EzMySql_Open("localhost", "root", $Pass, "keys", "3306") Then
MsgBox(0, "Error opening Database", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
Exit
EndIf
If Not _EzMySql_Exec("CREATE DATABASE IF NOT EXISTS EzMySqlTest") Then
MsgBox(0, "Error opening Database", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
Exit
EndIf
If Not _EzMySql_SelectDB("keys") Then
MsgBox(0, "Error setting Database to use", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
Exit
EndIf
$lesen = _GUICtrlListBox_GetCount($list)
for $i = 0 To $lesen -1
$ergebnis = _GUICtrlListBox_GetText($list, $i)
msgbox(0,"",$ergebnis)
$insert = 'INSERT INTO licence (licence,used) VALUES (' & $ergebnis & ',1)'
Next
If Not _EzMySql_Exec($insert) Then
MsgBox(0, "Error inserting data to Table", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
Exit
EndIf
EndFunc ;==>mysql
