Beiträge von blackcho
-
-
Dein Wunsch soll in erfüllung gehen jedoch erst im 22. Jahrhundert
Ich wünsche mir mehr Wünsche
-
Wenn ich IE ohne AutoIt im Privat-Modus starte funktioniert mein vorhaben ja also sollte es doch so auch gehen
-
muss nur noch wissen wie ich das Ganze in die GUI integriere.
-
Danke für deine Antwort
Das hab ich so mittlerweile auch rausgefunden aber ich schaffe es noch nicht "IE InPrivate" in der GUI auszuführen. -
eig. mein ich nicht facebook aber mit Facebook würde es im prinzip erstmal auch reichen
//edit
es würde mir auch reichen zu wissen wie ich IE im Privaten Modus starte -
dein problem war doch das wenn du ein doppelten eintrag hast das der eine gelöscht wird oder?
-
[autoit]
#include <File.au3>
[/autoit]
#include <Array.au3>
Local $aArray, $sPath = @ScriptDir & "\Test.ini"
_FileReadToArray($sPath, $aArray)
$aArray = _ArrayUnique($aArray, 1, 1)
_FileWriteFromArray($sPath, $aArray, 1)Spoiler anzeigen
[autoit];~ #include <File.au3>
[/autoit] [autoit][/autoit] [autoit]
;~ #include <Array.au3>Local $aArray, $sPath = @ScriptDir & "\Test.ini"
[/autoit] [autoit][/autoit] [autoit]
_FileReadToArray($sPath, $aArray)
$aArray = _ArrayUnique($aArray, 1, 1)
_FileWriteFromArray($sPath, $aArray, 1)Func _FileReadToArray($sFilePath, ByRef $aArray, $iFlag = 1)
[/autoit] [autoit][/autoit] [autoit]
If $iFlag Or $iFlag = Default Then
Local $hFileOpen = FileOpen($sFilePath, 0)
If $hFileOpen = -1 Then Return SetError(1, 0, 0)
Local $sFileRead = FileRead($hFileOpen)
FileClose($hFileOpen)If StringLen($sFileRead) Then
[/autoit] [autoit][/autoit] [autoit]
$aArray = StringRegExp(@CRLF & $sFileRead, "([^\r\n]*)(?:\r\n|\n|\r|$)", 3)
$aArray[0] = UBound($aArray) - 2
ReDim $aArray[UBound($aArray) - 1]
Else
Return SetError(2, 0, 0)
EndIf
Else
$aArray = FileReadToArray($sFilePath)
If @error Then Return SetError(@error, 0, 0)
EndIfReturn 1
[/autoit] [autoit][/autoit] [autoit]
EndFunc ;==>_FileReadToArrayFunc _FileWriteFromArray($sFilePath, Const ByRef $aArray, $iBase = Default, $iUBound = Default, $sDelimeter = "|")
[/autoit] [autoit][/autoit] [autoit]
; Check if we have a valid array as input
If Not IsArray($aArray) Then Return SetError(2, 0, 0); Check the number of dimensions
[/autoit] [autoit][/autoit] [autoit]
Local $iDims = UBound($aArray, 0)
If $iDims > 2 Then Return SetError(4, 0, 0); Determine last entry of the array
[/autoit] [autoit][/autoit] [autoit]
Local $iLast = UBound($aArray) - 1
If $iUBound = Default Or $iUBound > $iLast Then $iUBound = $iLast
If $iBase < 0 Or $iBase = Default Then $iBase = 0
If $iBase > $iUBound Then Return SetError(5, 0, 0)
If $sDelimeter = Default Then $sDelimeter = "|"; Open output file for overwrite by default, or use input file handle if passed
[/autoit] [autoit][/autoit] [autoit]
Local $hFileOpen = $sFilePath
If IsString($sFilePath) Then
$hFileOpen = FileOpen($sFilePath, 2)
EndIf
If $hFileOpen = -1 Then Return SetError(1, 0, 0); Write array data to file
[/autoit] [autoit][/autoit] [autoit]
Local $iError = 0
Switch $iDims
Case 1
For $i = $iBase To $iUBound
If FileWrite($hFileOpen, $aArray[$i] & @CRLF) = 0 Then
$iError = 3
ExitLoop
EndIf
Next
Case 2
Local $sTemp
Local $iCols = UBound($aArray, 2)
For $i = $iBase To $iUBound
$sTemp = $aArray[$i][0]
For $j = 1 To $iCols - 1
$sTemp &= $sDelimeter & $aArray[$i][$j]
Next
If FileWrite($hFileOpen, $sTemp & @CRLF) = 0 Then
$iError = 3
ExitLoop
EndIf
Next
EndSwitch; Close file only if specified by a string path
[/autoit] [autoit][/autoit] [autoit]
If IsString($sFilePath) Then FileClose($hFileOpen); Return results
[/autoit] [autoit][/autoit] [autoit]
If $iError Then Return SetError($iError, 0, 0)
Return 1
EndFunc ;==>_FileWriteFromArrayFunc _ArrayUnique(Const ByRef $aArray, $iColumn = Default, $iBase = Default, $iCase = Default, $iFlags = Default)
[/autoit] [autoit][/autoit] [autoit]
If $iColumn = Default Then $iColumn = 1
If $iBase = Default Then $iBase = 0
If $iCase = Default Then $iCase = 0
If $iFlags = Default Then $iFlags = 1
; Start bounds checking
If UBound($aArray) = 0 Then Return SetError(1, 0, 0) ; Check if array is empty, or not an array
; $iBase can only be 0 or 1, if anything else, return with an error
If $iBase < 0 Or $iBase > 1 Or (Not IsInt($iBase)) Then Return SetError(2, 0, 0)
If $iCase < 0 Or $iCase > 1 Or (Not IsInt($iCase)) Then Return SetError(2, 0, 0)
If $iFlags < 0 Or $iFlags > 1 Or (Not IsInt($iFlags)) Then Return SetError(4, 0, 0)
Local $iDims = UBound($aArray, 0), $iNumColumns = UBound($aArray, 2)
If $iDims > 2 Then Return SetError(3, 0, 0)
; checks the given dimension is valid
If ($iColumn < 1) Or ($iNumColumns = 0 And ($iColumn - 1 > $iNumColumns)) Or ($iNumColumns > 0 And ($iColumn > $iNumColumns)) Then Return SetError(3, 0, 0)
; make $iColumn an array index, note this is ignored for 1D arrays
$iColumn -= 1
; create dictionary
Local $oD = ObjCreate("Scripting.Dictionary")
; compare mode for strings
; 0 = binary, which is case sensitive
; 1 = text, which is case insensitive
; this expression forces either 1 or 0
$oD.CompareMode = Number(Not $iCase)
Local $vElem
; walk the input array
For $i = $iBase To UBound($aArray) - 1
If $iDims = 1 Then
; 1D array
$vElem = $aArray[$i]
Else
; 2D array
$vElem = $aArray[$i][$iColumn]
EndIf
; add key to dictionary
; NOTE: accessing the value (.Item property) of a key that doesn't exist creates the key
; keys are guaranteed to be unique
$oD.Item($vElem)
Next
;
; return the array of unique keys
If BitAND($iFlags, 1) = 1 Then
Local $aTemp = $oD.Keys()
_ArrayInsert($aTemp, 0, $oD.Count)
Return $aTemp
Else
Return $oD.Keys()
EndIf
EndFunc ;==>_ArrayUniqueFunc _ArrayInsert(ByRef $avArray, $iElement, $vValue = "")
[/autoit] [autoit][/autoit] [autoit]
If Not IsArray($avArray) Then Return SetError(1, 0, 0)
If UBound($avArray, 0) <> 1 Then Return SetError(2, 0, 0); Check element in array bounds + 1
[/autoit] [autoit][/autoit] [autoit]
If $iElement > UBound($avArray) Then Return SetError(3, 0, 0); Add 1 to the array
[/autoit] [autoit][/autoit] [autoit]
Local $iUBound = UBound($avArray) + 1
ReDim $avArray[$iUBound]; Move all entries over til the specified element
[/autoit] [autoit][/autoit] [autoit]
For $i = $iUBound - 1 To $iElement + 1 Step -1
$avArray[$i] = $avArray[$i - 1]
Next; Add the value in the specified element
[/autoit]
$avArray[$iElement] = $vValue
Return $iUBound
EndFunc ;==>_ArrayInsert -
wenn ich Cookies deaktivere kann ich mich garnicht mehr anmelden
//edit keiner der helfen kann
-
Hallo
hab eine frage ist es möglich mit AutoIt gleichzeitig in 2 "Accounts" Online zu sein (mit IE) ?z. B. Facebook
Spoiler anzeigen
[autoit]; Trap COM errors so that 'Back' and 'Forward'
[/autoit] [autoit][/autoit] [autoit]
; outside of history bounds does not abort script
; (expect COM errors to be sent to the console)#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <IE.au3>
#include <WindowsConstants.au3>Local $oIE = _IECreateEmbedded()
[/autoit] [autoit][/autoit] [autoit]
GUICreate("Embedded Web control Test", 640, 580, _
(@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
$WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
GUICtrlCreateObj($oIE, 10, 40, 600, 360)
Local $idButton_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
Local $idButton_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
Local $idButton_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
Local $idButton_Change = GUICtrlCreateButton("Change", 340, 420, 100, 30)Global $g_idError_Message = GUICtrlCreateLabel("", 100, 500, 500, 30)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetColor(-1, 0xff0000)GUISetState(@SW_SHOW) ;Show GUI
[/autoit] [autoit][/autoit] [autoit]_IENavigate($oIE, "www.facebook.com")
[/autoit] [autoit][/autoit] [autoit]
_IEAction($oIE, "stop"); Waiting for user to close the window
[/autoit] [autoit][/autoit] [autoit]Example()
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
Local $iMsg = GUIGetMsg()
Select
Case $iMsg = $GUI_EVENT_CLOSE
;~ ExitLoop
Case $iMsg = $idButton_Home
_IENavigate($oIE, "www.facebook.com")
_IEAction($oIE, "stop")
_IEAction($oIE, "back")
CheckError("Home", @error, @extended)
Case $iMsg = $idButton_Back
_IEAction($oIE, "back")
CheckError("Back", @error, @extended)
Case $iMsg = $idButton_Forward
_IEAction($oIE, "forward")
CheckError("Forward", @error, @extended)
Case $iMsg = $idButton_Change
_IENavigate($oIE, InputBox("Url","Url","www.google.de"))
_IEAction($oIE, "stop")
EndSelect
WEndGUIDelete()
[/autoit] [autoit][/autoit] [autoit]Exit
[/autoit] [autoit][/autoit] [autoit]Func CheckError($sMsg, $iError, $iExtended)
[/autoit] [autoit][/autoit] [autoit]
If $iError Then
$sMsg = "Error using " & $sMsg & " button (" & $iExtended & ")"
Else
$sMsg = ""
EndIf
GUICtrlSetData($g_idError_Message, $sMsg)
EndFunc ;==>CheckErrorFunc Example()
[/autoit]
Local $oIE
Local $msg
$oIE = ObjCreate("Shell.Explorer.2")
; Create a simple GUI for our output
GUICreate("Embedded Web control Test", 640, 580, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2)
GUICtrlCreateObj($oIE, 10, 10, 630, 570)
GUISetState(@SW_SHOW) ;Show GUI
$oIE.navigate("www.facebook.com") ; Loop until the user exits.
EndFunc ;==>ExampleMfG
-
-
Bedanke mich für eure Hilfe
Ich mache es mit der Runden Methode thx -
Hallo
[autoit]
habe ein ganz kleines problem
AutoIT rechnet irgendwie falschMsgBox(0,937.55+00.01,0+(105)+(100)+(230)+(25)+(20)+(-380)+(450)+(00.02)+(20)+(-10)+(00.02)+(-400)+(480)+(10)+(-10)+(10)+(-400)+(-8)+(-1)+(420)+(-10)+(-1.25)+(-22.02)+(-1)+(50)+(-5.60)+(-2)+(10)+(-5)+(3.12)+(-0.20)+(0.15)+(-6)+(-1)+(-0.50)+(50)+(00.02)+(00.01)+(10)+(-50)+(-3)+(-3)+(-1)+(2.50)+(50)+(3)+(-2)+(10.20)+(-7)+(-10)+(-1.89)+(-0.85)+(-8.99)+(-3.00)+(-1)+(-20)+(-450)+(-1)+(10)+(10)+(295.90)+(-20)+(-20)+(250)+(-1.50)+(-3.62)+(-1.03)+(20)+(10)+(20)+(-1.20)+(-3.50)+(-0.50)+(0.45)+(-0.60)+(12.00)+(-10)+(-2.78)+(7.40)+(12.40)+(5.80)+(3.62)+(1.77)+(-5)+(-3.91)+(-3)+(-1)+(20)+(-0.57)+(10)+(20)+(-0.22)+(-3.00)+(-10)+(-10)+(-1.25)+(5)+(-2.07)+(7)+(10)+(-1.39)+(2)+(-10)+(-20)+(15)+(0.20)+(-1.15)+(0.33)+(40)+(5)+(5)+(-1.60)+(-1.20)+(-3.86)+(-1.29)+(-0.99)+(20)+(1.75)+(2.49)+(10)+(-1.09)+(2.50)+(1.50)+(-4.99)+(-00.01)+(10)+(-4.00)+(50)+(-350)+(-10)+(-50)+(-2)+(5)+(-18)+(-0.65)+(-20)+(-0.44)+(-20)+(-0.78)+(-17.20)+(10)+(-3.59)+(-1.09)+(20)+(-10)+(3.09)+(9)+(50)+(35)+(-1.50)+(-10)+(10)+(-0.44)+(-12)+(-1.69)+(-0.20)+(15)+(5)+(-2.99)+(-0.50)+(360)+(-1.34)+(-4.00)+(0.25)+(-10)+(-1)+(-30)+(-20)+(10)+(-10)+(60)+(-20))
[/autoit]
[Blockierte Grafik: http://s.gullipics.com/image/u/g/u/32qnhd-kgrlig-kfh7/Unbenannt.png]
Das richtige Ergebniss ist natürlich 936.46
Ich weiß auch wo das Problem auftaucht aber nicht wiesoSpoiler anzeigen
0+(105) = 105
105+(100) = 205
205+(230) = 435
435+(25) = 460
460+(20) = 480
480+(-380) = 100
100+(450) = 550
550+(00.02) = 550.02
550.02+(20) = 570.02
570.02+(-10) = 560.02
560.02+(00.02) = 560.04
560.04+(-400) = 160.04
160.04+(480) = 640.04
640.04+(10) = 650.04
650.04+(-10) = 640.04
640.04+(10) = 650.04
650.04+(-400) = 250.04
250.04+(-8) = 242.04
242.04+(-1) = 241.04
241.04+(420) = 661.04
661.04+(-10) = 651.04
651.04+(-1.25) = 649.79
649.79+(-22.02) = 627.77
627.77+(-1) = 626.77
626.77+(50) = 676.77
676.77+(-5.60) = 671.17
671.17+(-2) = 669.17
669.17+(10) = 679.17
679.17+(-5) = 674.17
674.17+(3.12) = 677.29
677.29+(-0.20) = 677.09
677.09+(0.15) = 677.24
677.24+(-6) = 671.24
671.24+(-1) = 670.24
670.24+(-0.50) = 669.74
669.74+(50) = 719.74
719.74+(00.02) = 719.76
719.76+(00.01) = 719.77
719.77+(10) = 729.77
729.77+(-50) = 679.77
679.77+(-3) = 676.77
676.77+(-3) = 673.77
673.77+(-1) = 672.77
672.77+(2.50) = 675.27
675.27+(50) = 725.27
725.27+(3) = 728.27
728.27+(-2) = 726.27
726.27+(10.20) = 736.47
736.47+(-7) = 729.47
729.47+(-10) = 719.47
719.47+(-1.89) = 717.58
717.58+(-0.85) = 716.73
716.73+(-8.99) = 707.74
707.74+(-3.00) = 704.74
704.74+(-1) = 703.74
703.74+(-20) = 683.74
683.74+(-450) = 233.74
233.74+(-1) = 232.74
232.74+(10) = 242.74
242.74+(10) = 252.74
252.74+(295.90) = 548.64
548.64+(-20) = 528.64
528.64+(-20) = 508.64
508.64+(250) = 758.64
758.64+(-1.50) = 757.14
757.14+(-3.62) = 753.52
753.52+(-1.03) = 752.49
752.49+(20) = 772.49
772.49+(10) = 782.49
782.49+(20) = 802.49
802.49+(-1.20) = 801.29
801.29+(-3.50) = 797.79
797.79+(-0.50) = 797.29
797.29+(0.45) = 797.74
797.74+(-0.60) = 797.14
797.14+(12.00) = 809.14
809.14+(-10) = 799.14
799.14+(-2.78) = 796.36
796.36+(7.40) = 803.76
803.76+(12.40) = 816.16
816.16+(5.80) = 821.96
821.96+(3.62) = 825.58
825.58+(1.77) = 827.35
827.35+(-5) = 822.35
822.35+(-3.91) = 818.44
818.44+(-3) = 815.44
815.44+(-1) = 814.44
814.44+(20) = 834.44
834.44+(-0.57) = 833.87
833.87+(10) = 843.87
843.87+(20) = 863.87
863.87+(-0.22) = 863.65
863.65+(-3.00) = 860.65
860.65+(-10) = 850.65
850.65+(-10) = 840.65
840.65+(-1.25) = 839.4
839.4+(5) = 844.4
844.4+(-2.07) = 842.33
842.33+(7) = 849.33
849.33+(10) = 859.33
859.33+(-1.39) = 857.94
857.94+(2) = 859.94
859.94+(-10) = 849.94
849.94+(-20) = 829.94
829.94+(15) = 844.94
844.94+(0.20) = 845.14
845.14+(-1.15) = 843.99
843.99+(0.33) = 844.32
844.32+(40) = 884.32
884.32+(5) = 889.32
889.32+(5) = 894.32
894.32+(-1.60) = 892.72
892.72+(-1.20) = 891.52
891.52+(-3.86) = 887.66
887.66+(-1.29) = 886.37
886.37+(-0.99) = 885.38
885.38+(20) = 905.38
905.38+(1.75) = 907.13
907.13+(2.49) = 909.62
909.62+(10) = 919.62
919.62+(-1.09) = 918.53
918.53+(2.50) = 921.03
921.03+(1.50) = 922.53
922.53+(-4.99) = 917.54
917.54+(-00.01) = 917.53
917.53+(10) = 927.53
927.53+(-4.00) = 923.53
923.53+(50) = 973.53
973.53+(-350) = 623.53
623.53+(-10) = 613.53
613.53+(-50) = 563.53
563.53+(-2) = 561.53
561.53+(5) = 566.53
566.53+(-18) = 548.53
548.53+(-0.65) = 547.88
547.88+(-20) = 527.88
527.88+(-0.44) = 527.44
527.44+(-20) = 507.44
507.44+(-0.78) = 506.66
506.66+(-17.20) = 489.46
489.46+(10) = 499.46
499.46+(-3.59) = 495.87
495.87+(-1.09) = 494.78
494.78+(20) = 514.78
514.78+(-10) = 504.78
504.78+(3.09) = 507.87
507.87+(9) = 516.87
516.87+(50) = 566.87
566.87+(35) = 601.87
601.87+(-1.50) = 600.37
600.37+(-10) = 590.37
590.37+(10) = 600.37
600.37+(-0.44) = 599.93
599.93+(-12) = 587.93
587.93+(-1.69) = 586.24
586.24+(-0.20) = 586.04
586.04+(15) = 601.04
601.04+(5) = 606.04
606.04+(-2.99) = 603.05
603.05+(-0.50) = 602.55
602.55+(360) = 962.55
962.55+(-1.34) = 961.209999999999
961.209999999999+(-4.00) = 957.209999999999
957.209999999999+(0.25) = 957.459999999999
957.459999999999+(-10) = 947.459999999999
947.459999999999+(-1) = 946.459999999999
946.459999999999+(-30) = 916.459999999999
916.459999999999+(-20) = 896.459999999999
896.459999999999+(10) = 906.459999999999
906.459999999999+(-10) = 896.459999999999
896.459999999999+(60) = 956.459999999999
956.459999999999+(-20) = 936.459999999999
936.459999999999+(00.01) = 936.469999999999Kann jemand helfen?
-
Bin auch dabei.
Mit 1€ wäre ich auch dabei -
können ruhig mehr teilnehmen
-
Der hat doch nur glück
[Blockierte Grafik: http://png-5.findicons.com/files/icons/24…ay_16x16x32.png]//Edit
Die BONUS-Fragen kann man wieder beantworten bis zum 29.08.14 ! -
Es kann losgehen!
[Blockierte Grafik: http://abload.de/img/200px-bundesliga-logoairg8.png]
Am 22.08.2014 hat die Bundesliga 14/15 begonnen.
Die Tippgemeinschaft auf kicktipp.de ist wieder startklar.Hier ist der LINK zum Tippspiel.
Mitmachen kann jeder. Es wäre schön, wenn ihr denselben Nickname benutzt wie hier im Forum.
Neuanmeldung über diesen LINK.Die BONUS-Fragen kann man bis zum 29.08.14 beantworten!
Ganz praktisch ist auch die Tipperinnerung: TipperinnerungEs wird nach den Standardregeln von Kicktipp.de gespielt.
-
denn bekommst du doch das Grün ist Schimmel.
Ich wünsche mir ganz viel Geld
-
Bekommst du auch aber sie ist auf einem Kaputten Usb Stick
Ich wünsche mir ganz viele Wünsche die Genauso erfüllt werden wie ich es will und ich bin der einzige der ein Vorteill durch diese Wünsche besitzt und ich habe keine konsequenzen durch diese Wünsche oder nachteile und natürlich sollen meine Wünsche in der Realität erfüllt werden.
-
Die bekommst du aber sie sind schon vor 2 jahren abgelaufen also nicht mehr gültig.
Ich wünsche mir die Weltherrschaft