Beiträge von Eistee

  • Autoklicker

    Sorry da weis ich nicht viel drüber kann ich dir echt nit helfen...


    bernd670: Hör bitte auf mit solchen überflüssigen Beiträgen, wenn Du zu etwas keine Antwort hast brauchst Du auch nicht zu schreiben!

  • editfeld nicht mittextdatei füttern?

    hallo ich habe ja neulic ein prog gemacht das nach der eingabe bestimmter zahlen usw.
    einen code generieren kann jedoch habe ich dies mit einer text datei gemacht...
    kann man das irgendwie machen das ich direkt in das editfeld schreiben kann ?
    weil wenn man bei der textdatei variante
    irgendwo hinklickt oder die tastatur benutzt wird meist eine endlosschleife ausgelöst
    wie man editfelder macht und wie man sie txt datein aslesen lassen kann das weis ich...
    aber kann man das auch ohne text dateien lösen ?
    so sieht der momentane script aus

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    #include <GUIConstants.au3>

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

    Const $szIniName = StringLeft(@ScriptFullPath,StringInStr(@ScriptFullPath,".",0,-1)) & "ini"
    Const $szIniNam = StringLeft(@ScriptFullPath,StringInStr(@ScriptFullPath,".",0,-1)) & "ini"
    Const $szIniNa = StringLeft(@ScriptFullPath,StringInStr(@ScriptFullPath,".",0,-1)) & "ini"
    Const $szIniN = StringLeft(@ScriptFullPath,StringInStr(@ScriptFullPath,".",0,-1)) & "ini"
    Const $szIni = StringLeft(@ScriptFullPath,StringInStr(@ScriptFullPath,".",0,-1)) & "ini"
    Const $szIn = StringLeft(@ScriptFullPath,StringInStr(@ScriptFullPath,".",0,-1)) & "ini"

    #Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\administrator\desktop\shoptool.kxf
    $Shoptool = GUICreate("Shop Tool", 1153, 700, 61, 74)
    GUISetBkColor(0x000000)
    $Name = GUICtrlCreateLabel("KalOnline Shop NPC Tool", 0, -16, 1147, 136)
    GUICtrlSetFont(-1, 71, 800, 0, "Comic Sans MS")
    GUICtrlSetColor(-1, 0x808000)
    GUICtrlSetBkColor(-1, 0x000000)
    $Label1 = GUICtrlCreateLabel("Wie Soll Er Heissen ?", 8, 192, 145, 23)
    GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
    GUICtrlSetColor(-1, 0x008000)
    GUICtrlSetBkColor(-1, 0x000000)
    $Label2 = GUICtrlCreateLabel("Welche Items Soll er Verkaufen ?", 8, 216, 225, 23)
    GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
    GUICtrlSetColor(-1, 0x008000)
    GUICtrlSetBkColor(-1, 0x000000)
    $Label3 = GUICtrlCreateLabel("Welche Nummer Hatt Er dann ?", 8, 264, 211, 23)
    GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
    GUICtrlSetColor(-1, 0x008000)
    GUICtrlSetBkColor(-1, 0x000000)
    $Label5 = GUICtrlCreateLabel("Wo Soll Der Shop Denn Seien ?", 8, 240, 209, 23)
    GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
    GUICtrlSetColor(-1, 0x008000)
    GUICtrlSetBkColor(-1, 0x000000)
    $Input1 = GUICtrlCreateInput(IniRead($szIniName, "config", "defaul", "Gib Einen Namen Für den NPC an"), 368, 192, 385, 21)
    $Input2 = GUICtrlCreateInput(IniRead($szIniNam, "config", "defau", "Gib hier ein Welche Items ER verticken soll Getrennt durch ein leerzeichen"), 368, 216, 385, 21)
    $Input3 = GUICtrlCreateInput(IniRead($szIniNa, "config", "defa", "Gebt Hier Die Coordinaten Ein Wo der Shop Sein Soll getrennt durch Leerzeichen"), 368, 240, 257, 21)
    $Input4 = GUICtrlCreateInput(IniRead($szIniN, "config", "def", "Gebt Hier Eine Nummer Über 70 Ein keine Nummer darf Doppelt Sein"), 368, 264, 385, 21)
    $Button1 = GUICtrlCreateButton("Start NPC Create", 1048, 192, 99, 105, 0)
    $Label6 = GUICtrlCreateLabel("WICHTIG : Benutzt Ab dem Moment Ab dem Ihr Auf Start Geklickt Habt Eure Maus Nicht Mehr!!!", 0, 328, 1101, 33)
    GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFF0000)
    GUICtrlSetBkColor(-1, 0x000000)
    $Label7 = GUICtrlCreateLabel("Auch Eure Tastatur Könnte fehler Verursachen!!! Also davon Auch finger Weg", 128, 360, 895, 33)
    GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFF0000)
    GUICtrlSetBkColor(-1, 0x000000)
    $Label9 = GUICtrlCreateLabel("WoW-Unit", 1088, 680, 54, 17)
    GUICtrlSetFont(-1, 8, 400, 2, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Label8 = GUICtrlCreateLabel("Copyright By ", 1024, 680, 66, 17)
    GUICtrlSetFont(-1, 8, 400, 2, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\notice2.bmp", 256, 184, 100, 124, BitOR($SS_NOTIFY,$WS_GROUP))
    $Pic2 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\notice2.bmp", 760, 184, 100, 124, BitOR($SS_NOTIFY,$WS_GROUP))
    $Label4 = GUICtrlCreateLabel("Der WIe Vielte NPC ist Das ?", 8, 288, 203, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x008000)
    GUICtrlSetBkColor(-1, 0x000000)
    $Input5 = GUICtrlCreateInput(IniRead($szIni, "config", "de", "Schreibt Hier Eine Zahl Über 4000 Rein Bedenkt Keine Zahl Darf Doppelt Sein"), 368, 288, 385, 21)
    $Label10 = GUICtrlCreateLabel(" dir :", 624, 240, 30, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x008000)
    GUICtrlSetBkColor(-1, 0x000000)
    $Input6 = GUICtrlCreateInput(IniRead($szIn, "config", "d", "Gebt die Dir Daten"), 656, 240, 97, 21)
    $feld1 = GUICtrlCreateEdit(FileRead("notice.txt"), 8, 392, 1137, 281)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    _blubb()
    EndSwitch
    WEnd

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

    Func _blubb()
    Run("notepad.exe", '', @SW_MAXIMIZE)
    Sleep(900)
    Send(" Hallo Leute Herzlich wilkommen Beim Shop Tool{Enter}{Enter}{Enter}")
    Send(" Ich Möchte Euch Bitten Während Der Nächsten Sekunden Weder Maus Noch Tatatur Zu Verwenden Erst wenn Mein Name Lesbar Ist Könnt ihr das tun MFG WoW-Unit {Enter}{Enter}{Enter}{Enter}")
    Sleep(50)
    Send("{Enter}")
    Send("{Enter}")
    Send("Schreibt das Hier In die Macro.dat in eurer Config.pk Ganz Unten Nach Store {Enter}{Enter}{Enter}{Enter}")
    Send("( store ( key " & GUICtrlRead($Input4) & ") ( index " & GUICtrlRead($Input2) & ")) {enter}")
    Send("__________________________________________________________________________{Enter}")
    Send("Schreibt Das Hier Ganz Unten In eure InitNPC In eurer Server Config {Enter}{Enter}{Enter}{Enter}")
    Send("(gennpc (index " & GUICtrlRead($Input5) & " ) (country 0) (kind 0) (shape 3) (html " & GUICtrlRead($Input5) & " ) (map 0) (xy " & GUICtrlRead($Input3) & ") (dir " & GUICtrlRead($Input6) & ")){Enter}")
    Send("__________________________________________________________________________{Enter}")
    Send("Schreibt das Hier Unter Die NPC Namen in die Message-e.dat in eurer config.pk {Enter}{Enter}{Enter}{Enter}")
    Send('(npcname ' & GUICtrlRead($Input5) & ' ' & '"' & GUICtrlRead($Input1) & '"' & '){Enter}')
    Send("__________________________________________________________________________{Enter}")
    Send("Schreibt das Hier in Eine Neue Textdatei Und Nennt Diese s00" & GUICtrlRead($Input5) & " ,Jetzt Zieht die Textdatei auf die Konvert Verknüpfung, Jetzt habt ihr eine .dat{Enter}")
    Send("Diese Tut Ihr Dann In eure e.pk{Enter}{Enter}{Enter}{Enter}")
    Send("(filechk file_ver (country_type ENG) (filename s00" & GUICtrlRead($Input5) & ")){Enter}")
    Send("(background{Enter}")
    Send("(font 12){Enter}")
    Send("(wrap 270){Enter}")
    Send('(link system ( param ( width 270) ( height 255) ( style title edge system vscroll) ( caption "Caption") ( layout script) )){Enter}')
    Send("){Enter}")
    Send("( frame ( font 12){Enter}{Enter}")
    Send('( line "Willkommen In Diesem Laden"){Enter}')
    Send('( link ( text "[Enter Store] Ja Ich Will Einkaufen") ( param load "store" ' & GUICtrlRead($Input4) & ')){Enter}')
    Send('( link close ( text "[End Talking] Cu ")){Enter}')
    Send("){Enter}")
    Send("__________________________________________________________________________{Enter}{Enter}{Enter}{Enter}")
    Send(" >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<{Enter}")
    Send(" >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<{Enter}")
    Send(" >> ww ww ooooooo WW WW UU UU NNN NN IIII TTTTTTTT <<{Enter}")
    Send(" >> ww ww ooooooo WW WW UU UU NN N NN II TT <<{Enter}")
    Send(" >> ww wW oo oo WW WW /--------\ UU UU NN N NN II TT <<{Enter}")
    Send(" >> ww ww ww oo oo WW WW WW \--------/ UU UU NN N NN II TT <<{Enter}")
    Send(" >> ww ww ww ww ooooooo WW WW WW WW UU UU NN NNN II TT <<{Enter}")
    Send(" >> wwwww wwwww ooooooo WWWWW WWWWW UUUUUUUUUU NN NN IIII TT <<{Enter}")
    Send(" >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<{Enter}")
    Send(" >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<{Enter}")
    Send(" Jetzt Könnt Ihr Maus Und Tastatur Wieder Verwenden Und die Jeweiligen Sachen Richtig Einfügen")
    IniWrite($szIniName,"config","defaul",GUICtrlRead($Input1))
    IniWrite($szIniNam,"config","defau",GUICtrlRead($Input2))
    IniWrite($szIniNa,"config","defa",GUICtrlRead($Input3))
    IniWrite($szIniN,"config","def",GUICtrlRead($Input4))
    IniWrite($szIni,"config","de",GUICtrlRead($Input5))
    IniWrite($szIn,"config","d",GUICtrlRead($Input6))
    EndFunc

    [/autoit]

    Wie kann ich das dan lösen das man das so nimmt wie es jetzt ist nur eben den umweg mit der text datei weglassen ?
    danke im Voraus

  • Adressbuch erstellen

    bin zwar noob und anfänger usw.
    aber ich würde es über txt dateien lösen
    (falls es was zu meckern gibt nein ich weis nicht wie es mit ini datein geht)
    also du machst dir mit koda ne gui mit den jeweiligen buttons also
    Privat
    Beruflich
    schule
    bekannte
    feinde
    freunde
    (wie auch immer^^)
    dann wenn du das hast machste paar funktionen und mehrere case befele untereinander
    dann teilste jedem button ne txt zu
    und dann musste das halt noch irgendwie einbauen das
    man in der gui die txt´s bearbeiten kann
    naja is halt meine idee bin halt noob
    die anderen werden sicher bessere ideen haben und so aber naja will nur helfen

  • unsichtbare txt+nach muster verschlüsseln

    weil ich ja nicht weis wie die verschlüsselt werden ...

    so sieht es als txt aus

    Spoiler anzeigen

    (filechk file_ver (country_type ENG) (filename s001009))
    (background
    (font 12)
    (wrap 270)
    (link system ( param ( width 270) ( height 255) ( style title edge system vscroll) ( caption "Caption") ( layout script) ))
    )

    ( frame ( font 12)

    ( line "Willkommen In Diesem Laden")

    ( link ( text "[Enter Store] Ja Ich Will Einkaufen") ( param load "store" 70))
    ( link close ( text "[End Talking] Cu "))
    )


    und so anschliessend als dat

    Spoiler anzeigen

    »h݇ Ì&h݇r™&» F$ʾrʾŸ&‹—&»h݇$?´&¸©©¶©©óäG»½? F$däG»h$Ê&¶äG»¹?Ÿ&a©äG»‡Ý$&¸¾¸Ê´&»&Ÿ??´&»&¹ÝdÊÌ&a©&»&ÌÝÌÊ&òò&»&¸Ê¾‡&ÊÝʇ&d&¸¾¸Ê´&™¸ ‡‡&»& ?ŸÊÝ$&êá?ŸÊÝ$ê&»&‡?¾FÊ&¸ ÝŸÊ&äGäGäG»&h?´&»&h$Ê&¶äGäG»&‡Ý$&ê݇‡´´$&†$&zݸ´&'?d$êäGäG»&‡Ý$&»&Ê4Ê&ê‚‹$Ê&›Ê¥&*?&† Ì&݇‡&‹Ý$?Fh$ê&»&Ÿ??´&‡?d&ê¸Êê&a©äG»&‡Ý$& ‡¸&»&Ê4Ê&ê‚‹$d&I?‡Ý$¥&áF&êäG

  • unsichtbare txt+nach muster verschlüsseln

    Hallo Leute Ein frage...
    und zwar wie könnte ich das machen das nach einem start meines programms(es geht ja schon)
    eine txt erstellt(so das das keiner sieht)
    und diese anschliessend nach bestimmten muster in eine .dat datei umwandelt ?
    hier ist das programm mit dem man umwandeln kann
    Habe Mich Lieb ich Bin ein Link
    dieses prog funzt so...
    man zieht die txt auf das programm(oder die verknüpfung davon)
    und dann verschlüsselt es die txt
    und macht daraus eine .dat hatt da einer nen peil von ?
    wenns nicht geht naja egal wäre halt nur ne idee von mir (auch wenn diese meistens dumm oder nicht realiesierbar sind)
    THX im voraus
    MFG WoW-Unit

  • Autoit-Tags für eingenes Forum!?

    ich will kein autoit forum machen habe ich doch gesagt...
    will nur wenn ich progs mache die online stellen..
    aber mit dem code weil sonst denken andere noch ich verbreite viren...
    und dieser link von snoopy
    ja das is klar das es kein progg is aber es is wie ein prog...
    es kann meine codes higlighten ja das ist mir schon klar...
    aber ich will das ja dann auf meiner page inbauen
    wie soll ich das machen ?
    ein screeni und dann einbinden ?
    ne ...danke... lol

  • Warten, bis das Installationsscript komplett fertig ist (Zwischen Installationsschitten pause einbau

    soweit ich das verstanden habe iss dein problem nach zeile 7 Oder ?
    wenn ja muss dein script so aussehen(ich baue ein paar kleine sleeps mit ein falls jemand nen schnelleren rechner hatt^^)

    Spoiler anzeigen
    [autoit]


    ; Starte die Installation
    run("C:\Temp\Wave\Setup.exe")

    ; 1.Fenster
    winwait("EMBASSY Trust Suite by Wave Systems - InstallShield Wizard", "Willkommen bei InstallShield")
    Send("!W")
    Sleep(500)

    ; 2.Fenster
    WinWait("Wave-Installationsprogramm - Dell Embassy Trust Suite by Wave Systems","Willkommen beim Wave-Installationsprogramm")
    Send("!W")
    Sleep(500)

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

    ; 3.Fenster
    ControlClick("Wave-Installationsprogramm - Dell Embassy Trust Suite by Wave Systems","Benutzerdefinierte Konfiguration (nur für fortgeschrittene Benutzer)","[ID:1042]")
    WinWaitActive("Wave-Installationsprogramm - Dell Embassy Trust Suite by Wave Systems","Benutzerdefinierte Konfiguration", "&Weiter >")
    Send("!W")
    Sleep(500)

    ; 4.Fenster
    ControlClick("Wave-Installationsprogramm - Dell Embassy Trust Suite by Wave Systems", "Alle Komponenten auswählen", "[ID:1031]")
    WinWaitActive("Wave-Installationsprogramm - Dell Embassy Trust Suite by Wave Systems","", "&Weiter >")
    Send("!W")
    Sleep(500)

    ; 5.Fenster
    ControlClick("Wave-Installationsprogramm - Dell Embassy Trust Suite by Wave Systems", "Wählen Sie unter den folgenden Optionen aus:", "[ID:1035]")
    WinWaitActive("Wave-Installationsprogramm - Dell Embassy Trust Suite by Wave Systems", "", "&Weiter >")
    Send("!W")
    Sleep(500)

    ; 6.Fenster
    WinWaitActive("Wave-Installationsprogramm", "Schließen Sie alle Windows-Anwendungen, und deaktivieren Sie alle Firewall-/Antispyware-Programme, bevor Sie fortfahren. Klicken Sie zum Fortfahren auf 'OK' oder zum Abbrechen der Installation auf 'Abbrechen'.", 10)
    ControlClick("Wave-Installationsprogramm", "", "[CLASS:Button; TEXT:OK; INSTANCE:1]", 15)
    Sleep(500)

    ; 7.Fenster
    WinWaitActive("Wave-Installationsprogramm - Dell Embassy Trust Suite by Wave Systems", "Die ausgewählten Vorgänge wurden abgeschlossen. Klicken Sie auf 'Weiter', um fortzufahren.", 10)
    Sleep(600000)
    Send("!W")
    Sleep(500)

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

    ; 8.Fenster
    WinWaitActive("Wave-Installationsprogramm - Dell Embassy Trust Suite by Wave Systems", "")
    Send("{ENTER}")
    Sleep(500)

    ; 8.Fenster
    WinWaitActive("EMBASSY Trust Suite by Wave Systems - InstallShield Wizard", "InstallShield® Wizard hat EMBASSY Trust Suite by Wave Systems auf Version 1.2.0 aktualisiert", 10)
    Send("{ENTER}")

    [/autoit]

    Schätze mal so muss das gehen aber es wäre nützlich wenn du noch den sinn des scriptes besser erläutern würdest^^
    aslo
    die zeile 7 wartet bis die installation fertig ist und sendet dann ein w Oder ?
    wenn ja kannste den script jetzt so benutzen^^

  • Warten, bis das Installationsscript komplett fertig ist (Zwischen Installationsschitten pause einbau

    Also als erstes es gibt nicht nur den spoiler befehl sondern auch nehn autoit befehl...
    fas deine scripte bitte in beides da hatt das code higligtning
    aber zu deinem prob wenn es nur um ne pause geht musste entscheiden wie lange^^
    also da gibt es den befehl

    Sleep(500)

    mit diesem wird dein programm für 0.5 sekunden paussiert^^
    also für 10 minuten pause müsste das dann so aussehen
    Sleep(600000)
    dan wären das ca. 10 min pause (kann sein das ich mich verrechnet habe aber merk dir 1000 = 1 sekunde)
    also so kannste ne pause machen^^