Zitatjau, ich muss mich auch immer neu hier einloggen (seit gestern).
Stell mal in deinen Lesezeichen die Boardadresse auf:
"http://www.autoit.de/portal.php" um.
Noch einmal anmelden und dann bleibts gespeichert.
Zitatjau, ich muss mich auch immer neu hier einloggen (seit gestern).
Stell mal in deinen Lesezeichen die Boardadresse auf:
"http://www.autoit.de/portal.php" um.
Noch einmal anmelden und dann bleibts gespeichert.
Also Auslesen ging prima mit meinem obigen Code.
Aber ich konnte nun nicht mehr online testen, da die Mail bereits gelöscht war.
Mit dem Quellcode, den ich ausgelesen hatte, funktioniert auch die Linkselektion per Regex.
Kein Wunder, dass das online nicht geht - leviathan hat inzwischen die Mail gelöscht.
So,mit dem Pattern sollte es eig.funzen:
"((http://www%5c.temporaryinbox%5c.com/showmail%5C.php%5C?inbox=w00t)[^<]*)"
Edit:
Hmm, im RegEx Coach passt alles, aber wenn ich es auf die Html online anwende findet er nix. Sehr seltsam.
So,hiermit lese ich den Quelltext aus. Sieht komischerweise anders aus, als der den ich im Browserfenster anschauen kann:
[autoit]#include <IE.au3>
$oIE = _IECreate ("http://www.temporaryinbox.com/rssfeed.php?inbox=w00t")
$sHTML = _IEDocReadHTML ($oIE)
$fh = FileOpen("TESThtml.txt",1)
$var = StringSplit($sHTML, @LF)
For $i = 1 To $var[0]
FileWriteLine($fh, $var[$i])
Next
Ich mach mal noch ein passendes Pattern.
Wenn du den Quelltext der RSS-Seite ausliest erhältst du:
<?xml version="1.0" encoding="ISO-8859-1"?>
<rss version="2.0">
<channel>
<title>temporaryinbox.com | free temporary email and disposable email address service</title>
<link>http://www.temporaryinbox.com</link>
<description>Get your free disposable email address now and avoid spam in your private email account. Temporary email addresses are the best way to avoid spam.</description>
<language>en</language>
<generator>temporaryinbox.com</generator>
<managingEditor>admin@put2.net</managingEditor>
<webMaster>admin@put2.net</webMaster>
<ttl>15</ttl>
<copyright>2006 temporaryinbox.com</copyright>
<item>
<title><![CDATA[fdasfsadf]]></title>
<link><![CDATA[http://www.temporaryinbox.com/showmail.php?inbox=w00t&mail=MjAxNzU4OTg=]]></link>
<description><![CDATA[]]></description>
<pubDate>Tue, 8 May 2007 17:18:04 +0200</pubDate>
</item>
</channel>
</rss>
Alles anzeigen
Es können ja mehrere Mails enthalten sein. Ich hab dir mal ein Pattern für Regex gemacht um die Links zu selektieren:
"((http://www%5c.temporaryinbox%5c.com/showmail%5C.ph…x=w00t&mail).+(?=]]></link>))"
Wähle einfach den RSSFeed-Link:
http://www.temporaryinbox.com/rssfeed.php?inbox=w00t
Lies den Seiteninhalt dort steht der direkte Link zur Post:
<link>
http://www.temporaryinbox.com/showmail.php?inbox=w00t&mail=MjAxNzU4OTg=
</link>
Wenn du den Link aufrufst hast du deine Mail.
Getestet. läuft.
Die Randomzahlen werden in eigenes Array geschrieben. Es wird verglichen ob Randomzahl schon mal gewählt wurde, wenn nicht wird sie im Array erfaßt und die Textzeile mit dieser Zufallsnummer in die Ausgabedatei geschrieben. Fortlaufend bis alle Textzeilen per Random ermittelt wurden.
#include <file.au3>
Global $arFile, $arCount[1]
Dim $filePath = @ScriptDir & "\blabla.txt"
Dim $outFile = "blabla_out.txt"
Dim $fh, $random, $match
If Not _FileReadToArray($filePath, $arFile) Then
MsgBox(0, '', @error)
Exit
EndIf
ReDim $arCount[UBound($arFile)]
$arCount[0] = 0
$fh = FileOpen($outFile, 1)
Do
$random = Random(1, UBound($arFile)-1, 1)
$match = 0
For $i = 1 To UBound($arCount)-1
If $arCount[$i] = $random Then ; prüft ob Random-Zahl schon verwendet wurde
$match = 1
ExitLoop
EndIf
Next
If $match = 0 Then
$arCount[$random] = $random
$arCount[0] += 1
FileWriteLine($fh, $arFile[$random])
EndIf
Until $arCount[0] = $arFile[0]
FileClose($fh)
ExitLoop reicht nicht. Die GUI existiert ja unabhängig von der Schleife. Lösche sie einfach mit GUIDelete().
Allerdings sehr komplizierter Aufbau
Ich verstehe eins nicht:
Warum lagerst du den Vorgang des Scriptschreibens nicht in ein völlig separates Programm aus, das du dann jeweils mit den erforderlichen Parametern aufrufst ?
Dann ist es völlig egal welcher User da sein Log generiert.
Ich denke mal, dass Probleme Autoit betreffend wohl weniger aufkommen.
Das Hauptproblem bei Sudoku ist, einen effektiven mathematischen Ansatz zu finden, der alle Bedingungen dieses Spiels berücksichtigt. Da gibt es sicher Unmengen an Varianten. Das ist ziemlich komplex. Wenn man das hat, ist die Umsetzung in den Programmcode sicher das wenigste.
Alina, da du Formeln magst, ist das genau das richtige für dich. Viel Spaß!
Schön, wenns klappt. :]
Du kannst die Tabellenblätter auch mit Namen ansprechen. Ist sinnvoll, wenn mehrere vorhanden sind und die Reihenfolge nicht bekannt ist.
[autoit]$sSheetName = "Tabelle3"
$oWBook1.Sheets($sSheetName).Move($oWBook2.Sheets(1))
Hi Alina,
hab zwar nicht die Zeit dabei mitzumachen, aber mal ein Vorschlag.
Verwende OnEvent Mode, dann kannst du bereits während der Eingabe prüfen und z.B. farblich markieren.
Für die grafische Darstellung würde ich quadratische Inputs empfehlen, Style: zentriert und immer in 9-er Blöcken etwas gruppiert.
Mal mein Vorschlag:
#include <GUIConstants.au3>
; erster 9-er Block oben links: Input 1-9
; Blöcke von oben li. nach rechts, dann mitte li.nach rechts, dann unten links nach rechts
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("AForm1", 267, 283, 193, 115)
GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1Close")
$Input1 = GUICtrlCreateInput("", 30, 50, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput1Change")
$Input2 = GUICtrlCreateInput("", 51, 50, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput2Change")
$Input3 = GUICtrlCreateInput("", 72, 50, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput3Change")
$Input4 = GUICtrlCreateInput("", 30, 71, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput4Change")
$Input5 = GUICtrlCreateInput("", 51, 71, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput5Change")
$Input6 = GUICtrlCreateInput("", 72, 71, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput6Change")
$Input7 = GUICtrlCreateInput("", 30, 92, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput7Change")
$Input8 = GUICtrlCreateInput("", 51, 92, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput8Change")
$Input9 = GUICtrlCreateInput("", 72, 92, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput9Change")
$Input10 = GUICtrlCreateInput("", 100, 50, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput10Change")
$Input11 = GUICtrlCreateInput("", 121, 50, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput11Change")
$Input12 = GUICtrlCreateInput("", 142, 50, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput12Change")
$Input13 = GUICtrlCreateInput("", 100, 71, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput13Change")
$Input14 = GUICtrlCreateInput("", 121, 71, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput14Change")
$Input15 = GUICtrlCreateInput("", 142, 71, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput15Change")
$Input16 = GUICtrlCreateInput("", 100, 92, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput16Change")
$Input17 = GUICtrlCreateInput("", 121, 92, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput17Change")
$Input18 = GUICtrlCreateInput("", 142, 92, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput18Change")
$Input19 = GUICtrlCreateInput("", 170, 50, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput19Change")
$Input20 = GUICtrlCreateInput("", 191, 50, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput20Change")
$Input21 = GUICtrlCreateInput("", 212, 50, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput21Change")
$Input22 = GUICtrlCreateInput("", 170, 71, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput22Change")
$Input23 = GUICtrlCreateInput("", 191, 71, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput23Change")
$Input24 = GUICtrlCreateInput("", 212, 71, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput24Change")
$Input25 = GUICtrlCreateInput("", 170, 92, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput25Change")
$Input26 = GUICtrlCreateInput("", 191, 92, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput26Change")
$Input27 = GUICtrlCreateInput("", 212, 92, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput27Change")
$Input28 = GUICtrlCreateInput("", 30, 120, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput28Change")
$Input29 = GUICtrlCreateInput("", 51, 120, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput29Change")
$Input30 = GUICtrlCreateInput("", 72, 120, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput30Change")
$Input31 = GUICtrlCreateInput("", 30, 141, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput31Change")
$Input32 = GUICtrlCreateInput("", 51, 141, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput32Change")
$Input33 = GUICtrlCreateInput("", 72, 141, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput33Change")
$Input34 = GUICtrlCreateInput("", 30, 162, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput34Change")
$Input35 = GUICtrlCreateInput("", 51, 162, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput35Change")
$Input36 = GUICtrlCreateInput("", 72, 162, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput36Change")
$Input37 = GUICtrlCreateInput("", 100, 120, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput37Change")
$Input38 = GUICtrlCreateInput("", 121, 120, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput38Change")
$Input39 = GUICtrlCreateInput("", 142, 120, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput39Change")
$Input40 = GUICtrlCreateInput("", 100, 141, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput40Change")
$Input41 = GUICtrlCreateInput("", 121, 141, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput41Change")
$Input42 = GUICtrlCreateInput("", 142, 141, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput42Change")
$Input43 = GUICtrlCreateInput("", 100, 162, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput43Change")
$Input44 = GUICtrlCreateInput("", 121, 162, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput44Change")
$Input45 = GUICtrlCreateInput("", 142, 162, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput45Change")
$Input46 = GUICtrlCreateInput("", 170, 120, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput46Change")
$Input47 = GUICtrlCreateInput("", 191, 120, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput47Change")
$Input48 = GUICtrlCreateInput("", 212, 120, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput48Change")
$Input49 = GUICtrlCreateInput("", 170, 141, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput49Change")
$Input50 = GUICtrlCreateInput("", 191, 141, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput50Change")
$Input51 = GUICtrlCreateInput("", 212, 141, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput51Change")
$Input52 = GUICtrlCreateInput("", 170, 162, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput52Change")
$Input53 = GUICtrlCreateInput("", 191, 162, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput53Change")
$Input54 = GUICtrlCreateInput("", 212, 162, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput54Change")
$Input55 = GUICtrlCreateInput("", 30, 190, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput55Change")
$Input56 = GUICtrlCreateInput("", 51, 190, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput56Change")
$Input57 = GUICtrlCreateInput("", 72, 190, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput57Change")
$Input58 = GUICtrlCreateInput("", 30, 211, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput58Change")
$Input59 = GUICtrlCreateInput("", 51, 211, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput59Change")
$Input60 = GUICtrlCreateInput("", 72, 211, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput60Change")
$Input61 = GUICtrlCreateInput("", 30, 232, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput61Change")
$Input62 = GUICtrlCreateInput("", 51, 232, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput62Change")
$Input63 = GUICtrlCreateInput("", 72, 232, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput63Change")
$Input64 = GUICtrlCreateInput("", 100, 190, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput64Change")
$Input65 = GUICtrlCreateInput("", 121, 190, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput65Change")
$Input66 = GUICtrlCreateInput("", 142, 190, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput66Change")
$Input67 = GUICtrlCreateInput("", 100, 211, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput67Change")
$Input68 = GUICtrlCreateInput("", 121, 211, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput68Change")
$Input69 = GUICtrlCreateInput("", 142, 211, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput69Change")
$Input70 = GUICtrlCreateInput("", 100, 232, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput70Change")
$Input71 = GUICtrlCreateInput("", 121, 232, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput71Change")
$Input72 = GUICtrlCreateInput("", 142, 232, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput72Change")
$Input73 = GUICtrlCreateInput("", 170, 190, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput73Change")
$Input74 = GUICtrlCreateInput("", 191, 190, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput74Change")
$Input75 = GUICtrlCreateInput("", 212, 190, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput75Change")
$Input76 = GUICtrlCreateInput("", 170, 211, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput76Change")
$Input77 = GUICtrlCreateInput("", 191, 211, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput77Change")
$Input78 = GUICtrlCreateInput("", 212, 211, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput78Change")
$Input79 = GUICtrlCreateInput("", 170, 232, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput79Change")
$Input80 = GUICtrlCreateInput("", 191, 232, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput80Change")
$Input81 = GUICtrlCreateInput("", 212, 232, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput81Change")
GUISetState(@SW_SHOW)
While 1
Sleep(100)
WEnd
Func AForm1Close()
Exit
EndFunc
Func AInput10Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput11Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput12Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput13Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput14Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput15Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput16Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput17Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput18Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput19Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput1Change()
MsgBox(0, '', "Hat sich was geändert")
EndFunc
Func AInput20Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput21Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput22Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput23Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput24Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput25Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput26Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput27Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput28Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput29Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput2Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput30Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput31Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput32Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput33Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput34Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput35Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput36Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput37Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput38Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput39Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput3Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput40Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput41Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput42Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput43Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput44Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput45Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput46Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput47Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput48Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput49Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput4Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput50Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput51Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput52Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput53Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput54Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput55Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput56Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput57Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput58Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput59Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput5Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput60Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput61Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput62Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput63Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput64Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput65Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput66Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput67Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput68Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput69Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput6Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput70Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput71Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput72Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput73Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput74Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput75Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput76Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput77Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput78Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput79Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput7Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput80Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput81Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput8Change()
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func AInput9Change()
EndFunc
[/autoit]So, habs nun doch noch gemacht. Ist ja nicht so viel.
Habe keine Sicherheitsabfragen drin (z.B. ob $Anzahl > Anzahl der vorhandenen Sheets). Ging mir nur drum zu zeigen wie ( und dass ) es geht.
$sFilePath1 = "D:\Mappe1.xls" ; Quelle
$sFilePath2 = "D:\Mappe2.xls" ; Ziel
$Anzahl = 5 ; Anzahl der zu verschiebenden Sheets
$oExcel = ObjCreate("Excel.Application")
$oWBook1 = $oExcel.Workbooks.Open($sFilePath1)
$oWBook2 = $oExcel.Workbooks.Open($sFilePath2)
For $i = 1 To $Anzahl
$oWBook1.Sheets(1).Move($oWBook2.Sheets(1))
Next
$oExcel.DisplayAlerts = False
$oExcel.Save
$oExcel.Application.Quit
$oExcel = ''
$oWBook1.Sheets(1) : Es wird immer von vorn verschoben (Index 1).
$oWBook2.Sheets(1) : Es wird immer vorn angefügt (Index 1).
Die Indexe sind 1-basiert. Du kannst natürlich auch einen Zähler setzen und dann an bestimmter Position einfügen.
In dieser Einstellung läuft alles 'Hide' ab. Die Aufforderung zum Speichern habe ich unterdrückt.
Viel Spaß!
Welches Icon soll denn nun wohin?
OK, dann werd ich mich mal hinsetzen und versuchen eine Lösung zu finden.
Aber ob das heute noch was wird.....
Hab gerade 1300 Zeilen Quellcode geschrieben - mir rauchen schon Kopf und Finger
$start = TimerInit()
$diff = TimerDiff($start)
*voll zustimm*
Da sinnvollerweise sowieso jeder Nutzereingabe eine Fehlerroutine folgen sollte, kann dabei natürlich auch der Gültigkeitsbereich geprüft werden. Insofern ist die Verwendung von $ES_NUMBER nur ein Mittel dem User WÄHREND der Eingabe zu zeigen: Stop - Nur Ziffern!
Sofern es durch die Hardware unterstützt wird:
Systemsteuerung --> Energieoptionen --> APM --> aktiviere "Advanced Power Management"
Edit:
Was auch noch helfen kann:
HKEY_LOCAL_MACHINE\ SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon
Wert: PowerdownAfterShutdown ==> auf 1
Mögliche Störenfriede außerdem:
- USB-Geräte (einfach mal alle ausstöpseln, wenns dann klappt, weiß man wer 'Schuld' ist)
- Netzwerkkarte, evtl. 'Wake on PCI Card' oder 'Wake On Lan' aktiv; mal deaktivieren
- veraltete Logitech Maustreiber
- einige Grafik- und Soundkarten können Probleme bringen
- Windows XP -Abmeldebildschirm, mal zurückstellen auf klassische Abmeldung
Das war so das wesentliche, was ich dazu gefunden habe. Hoffe es hilft dir.
$ES_NUMBER
Die Hilfe ist dein Freund