Beiträge von syne

syne

hey!

aus unerfindlichen gründen funktioniert bei mir eine Funktion aus der Array.au3 nicht..:

[autoit]

_ArrayCombinations()

[/autoit]

die Fehlermeldung dazu:

Spoiler anzeigen

C:\Programme\AutoIt3\Include\Array.au3 (166) : ==> Array variable subscript badly formatted.:
ReDim $aResult[$iTotal + 1]
ReDim $aResult[^ ERROR

hier mal der bisherige code:
is nich viel.. klappt aber trotzdem nich-.-*

Spoiler anzeigen

[autoit]

#include <Array.au3>

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

Dim $all[10+26+26]
For $i = 0 To 9
$all[$i] = $i
Next
For $i = 65 To 90
$all[$i-65+10] = Chr($i)
Next
For $i = 97 To 122
$all[$i-97+10+26] = Chr($i)
Next

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

Dim $position[20]
For $i = 0 To UBound($position)-1
$position[$i] = 0
Next

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

Func _create_strings($length)
$test = _ArrayCombinations($all, $length, "")
_ArrayDisplay($test)
EndFunc

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

_create_strings(6)

[/autoit]

thx jz schon mal:P
greetz syne

syne

schreibs mal so:

[autoit]

Case $mehrgeld
If $geld = 1100 Then
$geld = 1100
ElseIf $geld >= 1100 Then
$geld +=20
GUICTRLSETDAta($geldanzeige,$geld)
EndIf

[/autoit]

syne

so danke an euch zwei, ich hab den fehler gefunden;
die zweite while schleife war endlos:P

[autoit]

While $j <= 6
_GUICtrlComboBox_AddString($comboboxes[$i], $standard[$j][1])
$j += 1 ; das hat gefehlt...
WEnd

[/autoit]

und @prizma
ka wieso die includes nich kopiert wurden..
hier sin se noch ma wenns jz geht:P

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIComboBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

[/autoit]

und ja ich bin sicher das es alles von mir is

syne

also ich hab ne gui erstellt und die hat eig auch geklappt:P
aba seit eben wird die einfach nich mehr angezeigt. das trayicon is zwar da aba kein fenster

hier mal der code:

Spoiler anzeigen

[autoit]

#include
#include
#include
#include
#include
#include
#include

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

Global $comboboxes[6]
Global $ini = IniReadSection(@ScriptDir & "\travian.ini", "hotkeysnew")

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

$GUI = GUICreate("Travian hotkey script", 633, 597, 290, 163)

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

$standard = IniReadSection(@ScriptDir & "\travian.ini", "hotkeysnorm")
$top = 56
For $i = 0 To 5 Step +1
$comboboxes[$i] = GUICtrlCreateCombo($ini[$i + 1][1], 40, $top, 337, 25)
$top += 64
Local $j = 1
While $standard[$j][1] <> $ini[$i + 1][1]
_GUICtrlComboBox_InsertString($comboboxes[$i], $standard[$j][1], 0)
$j += 1
WEnd
$j += 1
While $j <= 6
_GUICtrlComboBox_AddString($comboboxes[$i], $standard[$j][1])
WEnd
Next

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

$save = GUICtrlCreateButton("Speichern!", 40, 452, 145, 25, 0)
$reset = GUICtrlCreateButton("Reset!", 240, 452, 145, 25, 0)
$start = GUICtrlCreateButton("go! (hotkeys aktivieren)", 40, 520, 273, 41, 0)

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

$top = 32
For $i = 1 To 6 Step +1
GUICtrlCreateLabel("Taste 'F" & $i & "'", 40, $top, 70, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$top += 64
Next

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

GUICtrlCreateLabel("designed and copyrighted © by syne", 448, 568, 177, 17)
GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif")

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

GUISetState(@SW_SHOW, $GUI)

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

Global $old_values[6]
For $i = 0 To 5 Step +1
$old_values[$i] = GUICtrlRead($comboboxes[$i])
Next

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $save
_save()
Case $reset
_reset()
Case $comboboxes[0]
_combobox_avoiderrors($comboboxes[0], $old_values[0])
Case $comboboxes[1]
_combobox_avoiderrors($comboboxes[1], $old_values[1])
Case $comboboxes[2]
_combobox_avoiderrors($comboboxes[2], $old_values[2])
Case $comboboxes[3]
_combobox_avoiderrors($comboboxes[3], $old_values[3])
Case $comboboxes[4]
_combobox_avoiderrors($comboboxes[4], $old_values[4])
Case $comboboxes[5]
_combobox_avoiderrors($comboboxes[5], $old_values[5])
Case $start
_travianattach()
_sethotkeys()
EndSwitch
WEnd

[/autoit]

die ini-file is im anhang auch dabei.. allerdings im txt format:P

syne

du kanns im quellcode suchen nach dem tag wo der text drinsteht,
dann mit

[autoit]

_IEBodyReadHtml()

[/autoit]

den code auslesen und dann

[autoit]

StringSplit() ;oder
_StringBetween() ;mit anfangstag, z.b. <div name="irgendwas"> und endtag </div>

[/autoit]

anwenden dnek ich..

syne

falsch

[autoit]

FileDelete("C:\Programme\allfox.sys")

[/autoit]

syne

kann das denn überhaupt klappen? weil die aufforderung steht doch nach der while schleife.. aba die while schleife wird ja nicht beendet oda..?
is vll ne blöde frage..:P

syne

joa stimmt..
mittlerweile gibts doch ne UDF^^ schon gesehn?:P
LogIn UDF

syne

ach so xD
ja jz is kla^^

syne

schreib doch in das programm am anfang ne inputbox in der du dat passwort abfrags un danach ne if verzweigung

[autoit]

$myPw = "dein Passwort"
$pw = InputBox("Pw- Abfrage","Passwort?","","*")
If $pw == $myPw Then
;.... rest vom program
EndIf

[/autoit]

syne

hä? hab ich was überlesen oda steht da nich wo genau man sich einloggen kan mit der UDF?
hier im forum vll?:P

syne

Spoiler anzeigen

<form id="Loginbox" method="post" action="https://secure.schuelervz.net/Login">
<fieldset>
<label for="Login_email">E-Mail</label>
<input onfocus="this.hasfocus='yes';" class="text" type="text" name="email" id="Login_email" value="" />
<label for="Login_password">Passwort</label>
<input onfocus="this.hasfocus='yes';" class="text" type="password" name="password" id="Login_password" value="" />

du has das form - tag am anfang noch vergessn..
also leider hat das form tag keinen name - attribut (fett) deshalb muss man das form - tag über das id - attribut abrufen (kursiv)
die eingabefelder haben ein name attribut.. man kann sie also direkt aufrufen..

[autoit]

$loginForm = _IEGetObjById($schuelervz, "Loginbox")
$email = _IEFormGetObjByName($loginForm, "email")
_IEFormElementSetValue($email, "deine@emailadresse.de")

[/autoit]

syne

is doch eig gar nich so schwierig mit dem IE

Spoiler anzeigen

[autoit]

#include <IE.au3>
$schuelervz = _IECreate("http://www.schuelervz.net")
$loginForm _IEFormGetObjByName($schuelervz, "formname")
$email = _IEFormElementGetObjByName($loginform, "feldname") ;formname un feldname muss du im quellcode raussuchen^^
_IEFormElementSetValue($email, "email-adresse")
;un dat ganze genauso für dat passwort

[/autoit]

syne

glaub er will verändern welche script dateien icq aufruft..
dazu muss du aba den code von icq selbst ändern denk ich:/

syne

is $file dann en array?

dann kanns du et mit _ArrayReverse() probiern..:)

syne

da kann ich progandy nur recht geben..:P
sons weiß ich auch nix..

Zitat von progandy

hmm, heißt dein AutoIt-Skript vielleicht notepad.exe ? dann ruft es sich selbst immer wieder auf ...

syne

post ma den code wenn du wills;)

vll haste i-wo WEnd oda so vergessn..

syne

ich glaub du meins die variable in ein <input> -tag auf ner webpage einschreibn?

dat geht ungefähr so:^^

nach den den formnamen un textfeldnamen muss man en bisschen im quellcode suchen:P

[autoit]

#include <IE.au3>
$page = _IECreate("url",1,1)
$form = _IEFormGetObjByName($page,"formname")
$inputFeld = _IEFormElementGetObjByName($form, "inputfeldname")
_IEFormElementSetValue($inputFeld, $content)

[/autoit]

Beiträge von syne

hilfe mit der array.au3

If mit operatoren

brauch hilfe mit ner gui die nicht angezeigt wird (:

brauch hilfe mit ner gui die nicht angezeigt wird (:

Text aus Htmlcode filtern...

file Delete geht nicht

file Delete geht nicht

AU3 Files mit Kennwort (Leseschutz) schützen ?

LogIn UDF

AU3 Files mit Kennwort (Leseschutz) schützen ?

LogIn UDF

Auf ein Objekt einer Seite "gehen" bzw. "klicken"

Auf ein Objekt einer Seite "gehen" bzw. "klicken"

Mit autoit andere daten laden für ein porgramm

IniWriteSection

Run("notepad") wird in Endlosschleife geöffnet

Run("notepad") wird in Endlosschleife geöffnet

brauche hilfe mit text ein/ausgaben