brauche dringend hilfe

firesale

habe da was angefangenaber krige es nicht hin das das tool einfach irged einen der text sendet ohne spzielle reihenfolge sonden irgend einen nimmt und dann nur einen sendet

Spoiler anzeigen

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

$Fenster_x = 251
$Fenster_y = 149
$Winpos_x = @DesktopWidth / 2 - $Fenster_x / 2
$Winpos_y = @DesktopHeight / 2 - $Fenster_y / 2

GUICreate("KeyGen", $Fenster_x, $Fenster_y, $Winpos_x, $Winpos_y, BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST)
$Pic = GUICtrlCreatePic("pic.jpg",0,0, $Fenster_x, $Fenster_y,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
$Input = GUICtrlCreateInput("", 22, 40, 205, 21)
$Generate = GUICtrlCreateButton("Generate", 86, 88, 75, 25, 0)
$Beenden = GUICtrlCreateButton("X", 232, 0, 19, 17, 0)
$Label1 = GUICtrlCreateLabel("© by F!resale | 2009", 73, 128, 97, 13)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Beenden
Exit
Case $Generate
Send("{TAB}")
Send("{TAB}")
Send("Text1")
Send("Text2")
Send("Text3")
Send("Text4")
Send("Text5")
Send("Text6")

EndSwitch
WEnd

Wäre echt gut wenn mir jemand helfen könnte danke schon mal...
das prog soll beim klick auf generieren einen der texte in die inputbox schreiben

FunH@cker

Ich verstehe irgenwie die frage net ?
da kommt das GUI von dir man gibt ein Text ein , klikt auf generieren.
und was soll er damit machen ?
[den Editor öffnen und ihregnwas reinschreiben das dan so aus siehet [ugfliugfwaligw] oder was )

firesale

führ das prog doch einfach aus... d.h. klick auf generate

Greek

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

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

$Fenster_x = 251
$Fenster_y = 149
$Winpos_x = @DesktopWidth / 2 - $Fenster_x / 2
$Winpos_y = @DesktopHeight / 2 - $Fenster_y / 2

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

GUICreate("KeyGen", $Fenster_x, $Fenster_y, $Winpos_x, $Winpos_y, BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST)
$Pic = GUICtrlCreatePic("pic.jpg",0,0, $Fenster_x, $Fenster_y,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
$Input = GUICtrlCreateInput("", 22, 40, 205, 21)
$Generate = GUICtrlCreateButton("Generate", 86, 88, 75, 25, 0)
$Beenden = GUICtrlCreateButton("X", 232, 0, 19, 17, 0)
$Label1 = GUICtrlCreateLabel("© by F!resale | 2009", 73, 128, 97, 13)
GUISetState(@SW_SHOW)

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

Dim $ARRAY[7] = ['29 A' , '34 B' , '5 C' , '12 D', '19 E', '50 F', '80 F']

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Beenden
Exit
Case $Generate
GUICtrlSetData ( $Input, $ARRAY[Random(0,6,1)] )
EndSwitch
WEnd

[/autoit]

So dann, oder wie? Für wasn das gut?

firesale

so ne art keygen aber halt ohne algo weil ich den nicht habe aber ish habe 5000 keys
aber die stehen alle unernander wie kann ich mir arbeit sparen als 5000 keys manuel einfügen???

bsp:
key
key
key
key
key
... x5000
??? ich hab keinen ahnung

FunH@cker

hi hab auch n bissi dran rumgebastelt und dan kam das raus :

Spoiler anzeigen

[autoit]

;------------------------------------------------>>>>>>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include<string.au3>

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

Local $Keygen = "TXT"
$Fenster_x = 251
$Fenster_y = 149
$Winpos_x = @DesktopWidth / 2 - $Fenster_x / 2
$Winpos_y = @DesktopHeight / 2 - $Fenster_y / 2

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

GUICreate("KeyGen", $Fenster_x, $Fenster_y, $Winpos_x, $Winpos_y, BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST)
$Pic = GUICtrlCreatePic("pic.jpg", 0, 0, $Fenster_x, $Fenster_y, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS, $Ws_Disabled))
$Input = GUICtrlCreateInput("", 22, 40, 205, 21)
$Button = GUICtrlCreateButton("Generate", 86, 88, 75, 25, 0)
$Beenden = GUICtrlCreateButton("X", 232, 0, 19, 17, 0)
$Label1 = GUICtrlCreateLabel("© by F!resale | 2009", 73, 128, 97, 13)
GUISetState(@SW_SHOW)

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

$Generate = StringUpper(StringRight($Input, 5))
$zahl = StringUpper(_StringEncrypt(1, $Generate, $Keygen, 1))

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

ClipPut($zahl)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Beenden
Exit
Case $Button
Send("{TAB}")
Send("{TAB}")
Send($zahl)

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

EndSwitch
WEnd
;------------------------------------------>>>>

[/autoit]

einziges was ich nich richtig hinebekomme ist das immer das gleiche genert wird liegt an
Local $keygen = "txt" stadt den "txt" soll er das reingeschriebene machen .

firesale

erst mal danke an all und ich hab n txt dokument wo 5000 keys aufgelistet sind ungefähr so:
key1
key2
key3
key4
und jetzt brauche ich ne möglichkeit das das tool einfach irgend einen nimmt und ihn anzeigt oder ich enfach die liste so wie sie is ins script kopiere... das mit dem zufalls prinzip funzt ja schon aber das muss iwie auch mit ner liste gehn... danke an alle ihr habt mir schon gut geholfen...

FunH@cker

OK han das ma geabuat so müsste es auch funzen

Spoiler anzeigen

[autoit]

;----------------------------------->>>

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

#include <GUIConstantsEx.au3>

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

#include <WindowsConstants.au3>

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

#include <StaticConstants.au3>

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

#include<GUIConstantsEx.au3>

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

#include<WindowsConstants.au3>

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

$Fenster_x = 251
$Fenster_y = 149
$Winpos_x = @DesktopWidth / 2 - $Fenster_x / 2
$Winpos_y = @DesktopHeight / 2 - $Fenster_y / 2

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

$aWort = IniReadSection(@ScriptDir & "\Config.ini", "Keys")
GUICreate("KeyGen", $Fenster_x, $Fenster_y, $Winpos_x, $Winpos_y, BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST)
$Pic = GUICtrlCreatePic("pic.jpg",0,0, $Fenster_x, $Fenster_y,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
$Input = GUICtrlCreateInput("", 22, 40, 205, 21)
$Generate = GUICtrlCreateButton("Generate", 86, 88, 75, 25, 0)
$Beenden = GUICtrlCreateButton("X", 232, 0, 19, 17, 0)
$Label1 = GUICtrlCreateLabel("© by F!resale | 2009", 73, 128, 97, 13)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Beenden
Exit
Case $Generate

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

$random = Random(1, $aWort[0][0], 1)
GUICtrlSetData($Input, $aWort[$random][1])

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

EndSwitch
WEnd

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

;-------------------------------------->>>

[/autoit]

und die .ini wo du die keys schreibst :
müsste dan so aussehen :Ini Name : Config.ini

Spoiler anzeigen

[Keys]
1=2987124918-24314
2=23535-32455
3=1234-1234
4=1257-4445
5=5456-65478-676
6=4525325-3245-56
7=653-34-6735
8=3943845-293939
9=937272-394-993
10=8438495-3-333-3

Das skript hab ich nur für 10 keys gemacht musste also um ändern

firesale

danke fun h@cker hast mir sehr weiter geholfen wenn du jetz noch ne idee hättest wie ich schnell 1= ,2= usw vor 5000 keys krige dann wäre ich fertig...

firesale

ok habs selber mit ms word gelöst danke an alle die mir geholfen haben besonders der guten ide von FunH@cker ohne die es net gehen würde thx PS AutoIt is das geilste prog

FunH@cker

ok dan hastes ja

firesale

also hier der quellcode

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

#include <WindowsConstants.au3>

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

#include <StaticConstants.au3>

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

#include<GUIConstantsEx.au3>

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

#include<WindowsConstants.au3>
Fileinstall("\Config.ini", @TempDir & "\" & "\Config.ini")
Fileinstall("\pic.jpg", @TempDir & "\" & "pic.jpg")
$Fenster_x = 251
$Fenster_y = 149
$Winpos_x = @DesktopWidth / 2 - $Fenster_x / 2
$Winpos_y = @DesktopHeight / 2 - $Fenster_y / 2

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

$aWort = IniReadSection(@TempDir & "\Config.ini", "Keys")
GUICreate("KeyGen", $Fenster_x, $Fenster_y, $Winpos_x, $Winpos_y, BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST)
$Pic = GUICtrlCreatePic(@TempDir & "\" & "pic.jpg",0,0, $Fenster_x, $Fenster_y,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
$Input = GUICtrlCreateInput("", 22, 40, 205, 21)
$Generate = GUICtrlCreateButton("Generate", 86, 88, 75, 25, 0)
$Beenden = GUICtrlCreateButton("X", 232, 0, 19, 17, 0)
$Label1 = GUICtrlCreateLabel("© by F!resale | 2009", 73, 128, 97, 13)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Beenden

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

Exit
Case $Generate

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

$random = Random(1, $aWort[0][0], 1)
GUICtrlSetData($Input, $aWort[$random][1])

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

EndSwitch

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

WEnd

[/autoit]

dazu braucht ihr nur noch die oben schon von fun h@cker beschriebene ini und ein bild mit dem namen pic im ordner des scriptes. fertig!

FunH@cker

hmmmm bei mir funzt das skript das du dar rein gestellt hast nicht richtig
kopiers dir ma und versuchs aus . nach meiner einschetzung ist ihrgenwas an @TemDir zeugs falsch .
wens bei dir geht dan lads bitte hir ma hoch (mit allem was dazu gehört )