999990-1 (grad kein bock zu rechnen ~~)
@pee: jo passiert mir auch öfters.. "Was hab ich denn da geschrieben, war ich da betrunken?"
Beiträge von GtaSpider
-
-
Hallo
Komisch, dass das bild "dontlinkme-en.gif" also "verlink mich nicht" heißt
Ich denke mal, dass das Smilie hier nicht angezeigt werden kann, da es nicht verlinkt werden darf, bei uns sieht es nähmlich so aus, bugfix:
http://img-up.net/?up=UnbenannthMybjDZ.JPGMfg Spider
-
Hallo
Probiers doch mal mit WinGetHandle("","Challenge: ")
Mfg Spider
-
Hallo
Dann müsste es ca so aussehen:
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <file.au3>$sDatei = "C:\PfadUndDateiName.txt"
[/autoit] [autoit][/autoit] [autoit]Global $arr
[/autoit] [autoit][/autoit] [autoit]If Not FileExists($sDatei) Then Exit MsgBox(16,"","Datei nicht gefunden!"&@CRLF&$sDatei)
[/autoit] [autoit][/autoit] [autoit]
_FileReadToArray($sDatei, $arr)
If @error Then Exit MsgBox(16,"","Fehler beim Lesen mit FileReadToArray!")GUICreate("", 200, 200)
[/autoit] [autoit][/autoit] [autoit]
$hLstv = GUICtrlCreateListView("Namen:", 8, 8, 200 - 16, 200 - 16)For $i = 1 To $arr[0]
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateListViewItem($arr[$i],$hLstv)
NextGUISetState()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While True
[/autoit]
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEndMfg Spider
-
Hallo
Warum benutzt du nich GuiCtrlCreateList bzw GuiCtrlCreateListView bzw GuiCtrlCreateCombo? Ist für sowas doch Praktischer?
Mfg Spider
-
-
-
Hallo
Ja, ich hab doch schonmal ein Reconnecter geschrieben.
Netgear Router ReConnect - SILENTGuck dir da mal die Funktionen _SetIEOpts() und _ReloadIEOpts() an. Wurde seit SP2 gefixt, das man das machen kann (name:pw@ip) da es zu insicher war.
Spoiler anzeigen
[autoit]Func _SetIEOpts()
[/autoit] [autoit][/autoit] [autoit]
$sExpRead = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'explore.exe')
If @error Then $sExpRead = -1
$sIExpRead = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'iexplore.exe')
If @error Then $sExpRead = -1
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'explore.exe',"REG_DWORD",0)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'iexplore.exe',"REG_DWORD",0)
EndFuncFunc _ReloadIEOpts()
[/autoit]
If $sExpRead = -1 Then
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'explore.exe')
Else
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'explore.exe',"REG_DWORD",$sExpRead)
EndIf
If $sIExpRead = -1 Then
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'iexplore.exe')
Else
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'iexplore.exe',"REG_DWORD",$sIExpRead)
EndIf
EndFuncMfg Spider
-
Hallo
Schön das es funktioniert Hab mal den ersten Beitrag geedit.
Neue Version hinzugefügt (Suche eingebaut, Automatisches Login, Embedded Ie Control und noch paar andere sachen)Mfg Spider
-
Hallo
Habe mich mal dran gesetzt und ein kleines Tool geschrieben, was das Übersetzen ein bisschen vereinfachen soll
und villeicht bei dem ein oder anderen mehr Interesse weckt.Momentan hab ich das noch nicht auf anderen Rechnern ausprobiert (einfach zu spät um jemanden fragen zu können :P)
aber es könnte z.B. sein das es mit IE7 nicht funktioniert.Wäre also super wenn ihr mir Rückmeldung geben könntet ob alles Funktioniert hat.
Wenn das Listview komplett geladen hat, könnt ihr einfach Doppelklick auf die Datei machen, die ihr Übersetzen/Reviewen/anschauen wollt.
Skript:
Spoiler anzeigen
[autoit]#include <string.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GuiListView.au3>
#include <ie.au3>
#include <GUIConstants.au3>Global $oIE, $aNum[1][3], $ExploreActive = False, $sOldSeRe, $iStart = 0,$iDumEnd = 0,$iDumSt = 0
[/autoit] [autoit][/autoit] [autoit]
Global $sUsername = RegRead("HKEY_CURRENT_USER\Software\SpiderTech\Translate", "sUser")
Global $sPassword = _StringEncrypt(0, RegRead("HKEY_CURRENT_USER\Software\SpiderTech\Translate", "sMainLoc"), 'SpidTechTransl$!', 2)$oIE = _IECreateEmbedded()
[/autoit] [autoit][/autoit] [autoit]$guiExplore = GUICreate("AutoIt Hilfe - Explorer", 940, 790, -1, -1, $WS_MAXIMIZEBOX + $WS_SIZEBOX)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0)
GUICtrlCreateObj($oIE, 8, 8, 940 - 16, 765 - 16)
GUICtrlSetResizing(-1, 1)
_IENavigate($oIE, 'http://johannes.autoit.de/translation/index.php')$guiuserpw = GUICreate("AutoIt Hilfe übersetzen", 137, 135, -1, -1, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE))
[/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0)$inpUser = GUICtrlCreateInput($sUsername, 8, 24, 121, 21)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x010101)
GUICtrlCreateLabel("Username:", 8, 8, 55, 15)
GUICtrlSetColor(-1, 0xFF0000)
$inpPw = GUICtrlCreateInput($sPassword, 8, 64, 121, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL))
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x010101)
GUICtrlCreateLabel("Passwort:", 8, 48, 55, 15)
GUICtrlSetColor(-1, 0xFF0000)
$chkNote = GUICtrlCreateCheckbox("Login merken", 8, 86, 121, 15)
GUICtrlSetColor(-1, 0xFF0000)
If StringLen($sUsername) Or StringLen($sPassword) Then GUICtrlSetState(-1, $GUI_CHECKED)
$butLogin = GUICtrlCreateButton("Login", 8, 106, 121, -1, $BS_DEFPUSHBUTTON)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x0)GUISetState(@SW_SHOW, $guiuserpw)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $butLogin
GUICtrlSetState($inpPw, $GUI_DISABLE)
GUICtrlSetState($inpUser, $GUI_DISABLE)
GUICtrlSetData($butLogin, "...Login...")
_IELoadWait($oIE)
$Username = GUICtrlRead($inpUser)
$Password = GUICtrlRead($inpPw)
_Login($Username, $Password)
If Not @error Then ExitLoop
GUICtrlSetData($butLogin, "Error")
MsgBox(48, "", "Sie haben ein falschen Benutzername/Userpasswort eingegeben")
GUICtrlSetState($inpPw, $GUI_ENABLE)
GUICtrlSetState($inpUser, $GUI_ENABLE)
GUICtrlSetData($inpPw, '')
GUICtrlSetData($butLogin, "Login")
EndSwitch
WEnd
TrayTip("Passwort korrekt", "Willkommen " & $Username, 3)
GUICtrlSetData($butLogin, "Lese Daten...")
If GUICtrlRead($chkNote) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\SpiderTech\Translate", "sUser", "REG_SZ", GUICtrlRead($inpUser))
RegWrite("HKEY_CURRENT_USER\Software\SpiderTech\Translate", "sMainLoc", "REG_SZ", _StringEncrypt(1, GUICtrlRead($inpPw), 'SpidTechTransl$!', 2))
Else
RegDelete("HKEY_CURRENT_USER\Software\SpiderTech\Translate")
EndIf_GetTRD()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$aStat = _GetStatus()
GUISetState(@SW_HIDE, $guiuserpw)$guiMain = GUICreate("Eingeloggt als " & StringUpper(StringLeft($Username, 1)) & StringTrimLeft($Username, 1), 425, 360)
[/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0)GUICtrlCreateLabel("Suche",217+16+8,8,170,15)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetColor(-1,0xff0000)
$inpSearch = GUICtrlCreateInput("", 217 + 16 + 8, 28, 170, 20)
$comSearch = GUICtrlCreateCombo("Alle Anzeigen", 217 + 16 + 8, 56, 170)
GUICtrlSetData(-1, "Nur Übersetzte|Nur noch zu Reviewende|Nur noch zu Übersetzende")$lstv = GUICtrlCreateListView("Name", 8, 8, 217, 300, BitOR($LVS_NOCOLUMNHEADER, $WS_VSCROLL, $LVS_SINGLESEL), $LVS_EX_FULLROWSELECT)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSendMsg(-1, 0x101E, 0, 200)If IsArray($aStat) Then
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("Status:", 8, 320, 217, 15)
GUICtrlSetBkColor(-1, -2)
GUICtrlSetColor(-1, 0xffffff)
GUICtrlCreateGraphic(8, 335, 407, 13)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x00ff00, 0x00ff00)
GUICtrlSetGraphic(-1, $GUI_GR_RECT, 0, 0, $aStat[0][0], 13)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xffff00, 0xffff00)
GUICtrlSetGraphic(-1, $GUI_GR_RECT, $aStat[0][0], 0, $aStat[1][0], 13)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff0000, 0xff0000)
GUICtrlSetGraphic(-1, $GUI_GR_RECT, $aStat[0][0] + $aStat[1][0], 0, $aStat[2][0], 13)
GUICtrlCreateLabel($aStat[0][1], 8, 335)
GUICtrlSetBkColor(-1, -2)
GUICtrlCreateLabel($aStat[1][1], $aStat[0][0] + 8, 335)
GUICtrlSetBkColor(-1, -2)
GUICtrlCreateLabel($aStat[2][1], $aStat[0][0] + $aStat[1][0] + 8, 335)
GUICtrlSetBkColor(-1, -2)
Else
WinMove($guiMain, "", Default, Default, Default, 340)
EndIf_SetListView("a")
[/autoit] [autoit][/autoit] [autoit]GUIRegisterMsg(0x004E, "_DoubleClickOnListView")
[/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
If $ExploreActive Then
GUISetState(@SW_HIDE, $guiExplore)
GUISetState(@SW_SHOW, $guiMain)
$ExploreActive = False
Else
Exit
EndIf
Case $comSearch
Switch GUICtrlRead($comSearch)
Case "Nur Übersetzte"
_SetListView("d")
Case "Nur noch zu Reviewende"
_SetListView("r")
Case "Nur noch zu Übersetzende"
_SetListView("t")
Case Else
_SetListView("a")
EndSwitch
EndSwitch
$sSeRe = GUICtrlRead($inpSearch)
If $sSeRe <> $sOldSeRe Then _Search($sSeRe)
WEndFunc _SetListView($sNum)
[/autoit] [autoit][/autoit] [autoit]
For $i = $iDumSt to $iDumEnd
GUICtrlDelete($i)
Next
$iDumSt = GUICtrlCreateDummy()
Local $iBKColor
If $sNum = "t" Or $sNum = "r" Or $sNum = "d" Then
If $sNum = "t" Then $iBKColor = 0xff0000
If $sNum = "r" Then $iBKColor = 0xffff00
If $sNum = "d" Then $iBKColor = 0x00ff00
For $i = 1 To $aNum[0][0]
If $aNum[$i][2] <> $sNum Then ContinueLoop
GUICtrlCreateListViewItem($aNum[$i][1], $lstv)
GUICtrlSetBkColor(-1, $iBKColor)
Next
Else
For $i = 1 To $aNum[0][0]
If $aNum[$i][2] = "t" Then $iBKColor = 0xff0000
If $aNum[$i][2] = "r" Then $iBKColor = 0xffff00
If $aNum[$i][2] = "d" Then $iBKColor = 0x00ff00
GUICtrlCreateListViewItem($aNum[$i][1], $lstv)
GUICtrlSetBkColor(-1, $iBKColor)
Next
EndIf
$iDumEnd = GUICtrlCreateDummy()
EndFunc ;==>_SetListViewFunc _Search($sSeRe)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$sOldSeRe = $sSeRe
$iInd = _GUICtrlListView_FindInText($lstv, $sSeRe)
If $iInd = -1 Then Return
_GUICtrlListView_EnsureVisible($lstv, $iInd)
_GUICtrlListView_SetItemSelected($lstv, $iInd)
$cpos = _GUICtrlListView_GetItemPosition($lstv, $iInd)
$wpos = WinGetPos($guiMain)
MouseMove($wpos[0] + $cpos[0] + 8 + Random(0, 40, 1), $wpos[1] + $cpos[1] + 34, 1)
EndFunc ;==>_SearchFunc _Login($sUsername, $sPassword)
[/autoit] [autoit][/autoit] [autoit]
Local $oPost, $oUsName, $oUsPw, $oLogBut, $aTranslate, $aReview
$oPost = _IEFormGetObjByName($oIE, 0)
$oUsName = _IEFormElementGetObjByName($oPost, 'username')
$oUsPw = _IEFormElementGetObjByName($oPost, 'userpass')
$oLogBut = _IEFormElementGetObjByName($oPost, 'login')
_IEFormElementSetValue($oUsName, $sUsername)
_IEFormElementSetValue($oUsPw, $sPassword)
_IEAction($oLogBut, "click")
_IELoadWait($oLogBut)
If StringInStr(_IEBodyReadText($oIE), 'Eingeloggt als ') Then Return 1
Return SetError(1, 0, 0)
EndFunc ;==>_LoginFunc _GetStatus()
[/autoit] [autoit][/autoit] [autoit]
_IENavigate($oIE, 'http://johannes.autoit.de/translation/statusbar.php')
Local $body = StringReplace(_IEBodyReadHTML($oIE), "/SPAN", "/SPAN" & @CRLF), $aTmp, $aRet[3][2]
$aTmp = StringRegExp($body, '<SPAN title=".*">(.*)</SPAN', 3)
If UBound($aTmp) <> 3 Then Return SetError(1, 0, 0)
$aRet[0][0] = Floor(407 * $aTmp[0] / ($aTmp[0] + $aTmp[1] + $aTmp[2]))
$aRet[0][1] = $aTmp[0]
$aRet[1][0] = Floor(407 * $aTmp[1] / ($aTmp[0] + $aTmp[1] + $aTmp[2]))
$aRet[1][1] = $aTmp[1]
$aRet[2][0] = Floor(407 * $aTmp[2] / ($aTmp[0] + $aTmp[1] + $aTmp[2]))
$aRet[2][1] = $aTmp[2]
Return $aRet
EndFunc ;==>_GetStatusFunc _TRD()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Local $sRead = StringTrimRight(GUICtrlRead(GUICtrlRead($lstv)), 1), $iInd
If $sRead = '' Then Return SetError(MsgBox(48, "", "Bitte wählen Sie ein eintrag in dem Listview aus!"), 0, 0)
$iInd = _GetFromName($sRead)
If @error Then Return SetError(MsgBox(48, "", "Error, eintrag wurde in der Datenbank nicht gefunden.") + 1, 0, 0)
_IENavigate($oIE, "about:blank")
_IENavigate($oIE, 'http://johannes.autoit.de/translation/show.php?id=' & $aNum[$iInd][0], 0)
$ExploreActive = True
GUISetState(@SW_SHOW, $guiExplore)
GUISetState(@SW_HIDE, $guiMain)
Return
;~ RunWait('"' & @ComSpec & '" /c start http://johannes.autoit.de/translation/show.php?id='&$aNum[$iInd][0], '', @SW_HIDE)
EndFunc ;==>_TRDFunc _GetFromName($sName)
[/autoit] [autoit][/autoit] [autoit]
For $i = 1 To $aNum[0][0]
If $aNum[$i][1] = $sName Then Return $i
Next
Return SetError(1, 0, 0)
EndFunc ;==>_GetFromName
Func _GetTRD()
_IENavigate($oIE, 'http://johannes.autoit.de/translation/status.php')
Local $body = _IEBodyReadHTML($oIE), $aTmp, $aTranslate, $aReview
$tim = TimerInit()
$aTmp = StringRegExp($body, 'show.php.id=(.*)"><B>(.*)</B>', 3)
For $i = 0 To UBound($aTmp) - 1
If Mod($i, 2) Then
$aNum[UBound($aNum) - 1][1] = $aTmp[$i]
Else
ReDim $aNum[UBound($aNum) + 1][3]
$aNum[UBound($aNum) - 1][0] = $aTmp[$i]
$aNum[UBound($aNum) - 1][2] = "d"
EndIf
Next
$aNum[0][0] = UBound($aNum) - 1
$aTmp = ''
$aTranslate = StringRegExp($body, '<A href="translate.php.id=(.*)"', 3)
$aReview = StringRegExp($body, '<A href="review.php.id=(.*)"', 3)
For $i = 1 To $aNum[0][0]
For $x = 0 To UBound($aTranslate) - 1
If $aNum[$i][0] = $aTranslate[$x] Then $aNum[$i][2] = "t"
Next
Next
For $i = 1 To $aNum[0][0]
For $x = 0 To UBound($aReview) - 1
If $aNum[$i][0] = $aReview[$x] Then $aNum[$i][2] = "r"
Next
Next
EndFunc ;==>_GetTRDFunc _DoubleClickOnListView($hWndGUI, $MsgID, $wParam, $lParam);Die Eigentliche Funktion
[/autoit]
Local $tagNMHDR, $event, $hwndFrom, $code
$tagNMHDR = DllStructCreate("int;int;int", $lParam)
If @error Then Return
$event = DllStructGetData($tagNMHDR, 3); Checkt wie das EVENT aussieht
If $wParam = $lstv Then;Wenn der Klick auf das ListView ging..
If $event = $NM_DBLCLK Then;.. Wenn es ein DoppelKlick war
; Hier kommt hin was er machen soll:
_TRD()
EndIf
EndIf
$tagNMHDR = 0
$event = 0
$lParam = 0
EndFunc ;==>_DoubleClickOnListViewWenn Interesse dadran besteht, bin ich bereit es auch auszuweiten..
Mfg Spider
P.S. Im Anhang exe und au3
Edit: Da ja anscheinend doch interesse besteht, hab ich das Skript mal erweitert. (Suche eingebaut, Automatisches Login, Embedded Ie Control und noch paar andere sachen)
Falls jemand noch ideen hat was rechts rein Soll (sieht noch etw schwarz aus^^) sagt mir bescheid -
Hallo
WTF?? mit 16 Zigarretten und Wählen? Is ja cool.
Alc is hier glaub ich auch ab 16, wobei ich glaub das das in paar bundesländern auf 18 hochgeschoben worden ist.
Naja, in S-H zum glück noch nicht^^Man gilt solange als aktiv, solange man noch in den Herzen anderer ist. Und du warst noch in meinem Herz *kitsch*
Mfg Spider
-
Hallo
Huggy hat Geburtstag. Ihm zu ehren erstelle ich dieses Thema
Herzlichen Glückwunsch zum 16ten, huggy!Mfg Spider
-
Hallo und herzlich willkommen in unserem Forum
Wo liegt das Problem? Einfach mal in die Hilfe gucken, die Hilft immer gerne (dafür ist sie ja auch da )
[autoit]Send("#{PAUSE}")
[/autoit]Zitat von AutoIt-Hilfe[...]
'#'
The hash now sends a Windows keystroke; therefore, Send("#r") would send Win+r which launches the Run dialog box.
[...]Mfg Spider
Edit: King of Array war mal wieder schneller :pinch:
-
Hallo
So ungefähr:?
Spoiler anzeigen
[autoit]#include <array.au3>
[/autoit] [autoit][/autoit] [autoit];Dim vom Array ( $Array[x] = [123,"blabla",0xff00,....]
[/autoit] [autoit][/autoit] [autoit]
Dim $Files[7] = [@WindowsDir & "\servicepackfiles\i386\notepad.exe",@WindowsDir & "\source\WinXP\i386\notepad.exe", @SystemDir & "\dllcache\notepad.exe",@SystemDir & "\notepad.exe",@WindowsDir & "\notepad.exe",@HomeDrive & "\i386\notepad.exe",@HomeDrive & "\i386\NOTEPAD.EX_"]
_ArrayDisplay($Files)
$rpfile=@ScriptDir&"\notepad.exe"
$npx="notepad.exe";backup Microsoft Notepad.exe
[/autoit] [autoit][/autoit] [autoit]
$WinBU=DirCreate(@WindowsDir & "\Notepad-backup")
If FileExists($Files[4]) Then FileCopy($Files[4], $WinBU, 1)If FileExists($Files[5]) Then FileCopy($Files[5], $WinBU, 1)
[/autoit] [autoit][/autoit] [autoit]
If FileExists($Files[6]) Then FileCopy($Files[6], $WinBU, 1)
;temporary disables protection for notepad.exeFor $Element In $Files
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
If FileExists($Element) Then DllCall(@SystemDir & "\SFC_OS.DLL","dword", 5, "dword", 0, "wstr", $Element, "dword", -1)
Next
If FileExists($Element) Then FileCopy($rpfile, $Element, 1)
Exit;Was auch geht:
[/autoit]
#cs
For $i = 0 To UBound($Files) - 1
If FileExists($Files[$i]) Then DllCall(@SystemDir & "\SFC_OS.DLL","dword", 5, "dword", 0, "wstr", $Files[$i], "dword", -1)
Next
#ceMfg Spider
-
Hallo
Jo gibt es.. $aRecord[0] wird doch nirgendswo definiert. $array[0] bedeutet nicht immer, dass da die Anzahl der Arrays drinsein muss.
Benutze dafür die Funtkion "Ubound"Spoiler anzeigen
[autoit]#include <array.au3>
[/autoit]
#include <file.au3>
Dim $aRecords
$aRecords = _ArrayCreate( "LOL", "LOL2")
_ArrayAdd( $aRecords, "LOL")
For $x = 1 to Ubound($aRecords)-1
Msgbox(0,'Record:' & $x, $aRecords[$x])
NextMfg Spider
-
Hallo
Jo, aber man muss kein Port freigeben beim Ziel rechner, was man bei VNC afaik muss.
Mfg Spider
-
Hallo
FileWrite ohne FileOpen hWnd öffnet und schließt die Datei automatisch.
Für FileClose brauchst du rückgabe wert von FileOpen, nicht einfach nur den Dateinamen.Spoiler anzeigen
[autoit]Func _zusammen()
[/autoit] [autoit][/autoit] [autoit]
Global $FileList = _FileListToArray("C:\test\", "*.txt", 1) ; Dateiende wählen
; X:\xtraconnect Account 2\reports\cdr\Voice\2007\12 2007
_ArrayDisplay($FileList, "")
;
Global $sammlung = FileOpen("C:\Test" & "\" & _Now() & ".txt", 1);Datei zum schreiben
;
For $i = 1 To UBound($FileList) - 1
FileWrite($sammlung, FileRead("C:\Test" & "\" & $FileList[$i]))
Sleep(2500)
Next
FileClose($sammlung)EndFunc ;==>_zusammen
[/autoit]Mfg Spider
Edit: Argh, Carsten war etwas schneller^^
-
Hallo
Eigentlich zum vergleich gedacht (ob alles geklappt hat)
Hab ich aber nicht in dieser Version eingebaut fällt mir grade auf^^ Danke für tipp!Mfg Spider
-
Hallo
Oder einfach VNC/Teamviewer benutzen. Damit hat man direkten zugriff auf den Desktop
Mfg SpideR
-
Hallo
Wenn die Bilder nicht zu groß sind:
Spoiler anzeigen
[autoit]$op1 = FileOpen('nr1a.bmp',16)
[/autoit]
$op2 = FileOpen('nr2a.bmp',16)
If $op1 = -1 Then Exit MsgBox(16,"","Kann nr1a nich öffnen")
If $op2 = -1 Then Exit MsgBox(16,"","Kann nr2a nich öffnen")
$1 = FileRead($op1)
$2 = FileRead($op2)
If $1 = $2 Then
MsgBox(0,"","Pix sind gleich")
Else
MsgBox(0,"","Pix sind ungleich")
EndIfMfg Spider