Hallo!
Bei mir stimmt es ebenfalls nicht! Zeile 3 sagt er alle sind richtig nur an falscher stelle, das stimmt aber nicht!
Mfg Spider
Hallo!
Bei mir stimmt es ebenfalls nicht! Zeile 3 sagt er alle sind richtig nur an falscher stelle, das stimmt aber nicht!
Mfg Spider
Hallo!
Dazu sag ich nur :lol: aber du kannst nur hoffen das pee nicht [Blockierte Grafik: http://www.world-of-smilies.com/wos_sport/fc%20bayern.gif] sieht ansonten [Blockierte Grafik: http://www.voidedwarranty.com/forum/images/smilies/smilie_hang4.gif]
MfG Spider
Hallo!
Wie wäre es mit marquee? So ungefair:
#include <GUIConstants.au3>
Global Const $PBS_MARQUEE = 0x08
$main = GUICreate("test", 464, 56, 193, 115)
GUISetOnEvent($GUI_EVENT_CLOSE,"GUI_CLOSE")
$Progress = GUICtrlCreateProgress(8, 8, 446, 17)
GUICtrlSetStyle(-1,$PBS_MARQUEE)
$statLabel = GUICtrlCreateLabel("Status: ", 8, 32, 446, 17)
GUISetState(@SW_SHOW)
_GUICtrlProgressSetMarquee($Progress)
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetData($statLabel,"Status: TrayTip 1 wird angezeigt!")
TrayTip("test","123",1)
Sleep(2000)
TrayTip("","",1)
GUICtrlSetData($statLabel,"Status: TrayTip 1 wurde angezeigt!")
Sleep(700)
GUICtrlSetData($statLabel,"Status: Fertig!")
_GUICtrlProgressSetMarquee($Progress,0)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func GUI_CLOSE()
Exit
EndFunc ;==>GUI_CLOSE
;===============================================================================
;
; Function Name: _GUICtrlProgressSetMarquee()
; Description: Sets marquee sytle for a progress control
; Parameter(s): $h_Progress - The control identifier (controlID)
; $f_Mode - Optional: Indicates whether to turn the marquee mode on or off
; 0 = turn marquee mode off
; 1 = (Default) turn marquee mode on
; $i_Time - Optional: Time in milliseconds between marquee animation updates
; Default is 100 milliseconds
; Requirement(s): AutoIt3 Beta and Windows XP or later
; Return Value(s): On Success - Returns whether marquee mode is set
; On Failure - Returns 0 and sets @ERROR = 1
; Author(s): Bob Anthony
;
;===============================================================================
;
Func _GUICtrlProgressSetMarquee($h_Progress, $f_Mode = 1, $i_Time = 100)
Local Const $WM_USER = 0x0400
Local Const $PBM_SETMARQUEE = ($WM_USER + 10)
Local $var = GUICtrlSendMsg($h_Progress, $PBM_SETMARQUEE, $f_Mode, Number($i_Time))
If $var = 0 Then
SetError(1)
Return 0
Else
SetError(0)
Return $var
EndIf
EndFunc ;==>_GUICtrlProgressSetMarquee
[/autoit]Mfg Spider
Hallo
weil $array auf 2 teile deklariert wird ($array[0] und $array[1]) nicht auf 3!($array[0],$array[1] und $array[2]) Das zählen beim array fängt immer bei 0 an nicht bei 1!
So müsste es gehen:
$test = _test()
MsgBox(0,"",$test[0]&@CRLF&$test[1]&@CRLF&$test[2])
Func _test()
local $array[3]
$array[0] = "start"
$array[1] = "erstes"
$array[2] = "zweites"
Return $array
EndFunc
Mfg Spider
Hallo!
Alles Alles gute, und danke das du unser forum immer so.. belustigst Hoffe du bleibst für immer hier :kiss:
MfG Spider
Hallo!
Ok, das war noch ein schönheitsfehler! --> Behoben
Habe nun auch eine frage eingebaut ob man das progamm im Autostart haben will. Das mit dem Listview sortieren klappt nicht so gut, weil man voher einmal ins Listview auf den Collumn geklickt haben muss... Ich lass mich nochmal was einfallen
Mfg Spider
Hallo Oscar!
Ok, mache ich bei der nächsten version! Vielen dank nochmal für deine Vorschläge und Anregungen
Probier mal das Skript im anhan dieses Postes aus, und dann drück auf Liste neu einlesen, und dann warte bis eine InbutBox kommt. Den Wert der InputBox kopierst du bitte und stellst ihn ins forum. Wegen Blitzkrieg 2: Mh, komisch, sollte er aber trozdem finden, ich guck nochmal genau nach.
Ok, auch bei der nächsten version!
MfG Spider
Hallo Oscar
Naja, ich weiß nicht, aber ich möchte nicht jedes mal bei windows start daran erinnert werden welche spiele ich installiert hab
@Edit: oh, ok, Lag daran das ich ein wert in der ini Vergessen hatte. Vielen dank Habe es nun gefixt, Probier es bitte nochmal
Mfg SPider
Hallo!
Danke Oscar
Habe dir beide Wünsche erfüllt. Die Gui hab ich größer gemacht und jetzt muss er nur einmal lesen und schreibt es dann in eine INI rein! Aktualisieren tut man die Liste einfach mit Liste neu Einlesen!
Mfg Spider
Hallo!
Also.. ich hab mir gedacht, programmiere ich mal was, was die Welt aufkeinen fall brauch oder etwas was es schon gibt^^ Dieses Skript macht eigentlich genau das gleiche wie XFire, guckt also welche Spiele installiert sind und wo... Das Skript basiert auf die xfire_games.ini wo so ziemlich alle Spiele drin sind. Also, vorteil gegenüber XFire seh ich eigentlich keinen^^. naja auser halt das es kompakter ist
Also hier nun das Skript, und im Anhang die xfire_games und die Kompilierte exe!
#include <GUIConstants.au3>
#include <array.au3>
#include <string.au3>
#include <file.au3>
#include <GuiListView.au3>
#AutoIt3Wrapper_icon = xfire.ico
#AutoIt3Wrapper_outfile = Xfire GameList - By GtaSpider.exe
#AutoIt3Wrapper_compression = 4
FileInstall("xfire_games.ini", @TempDir & "\gamel~.tmp", 1)
[/autoit] [autoit][/autoit] [autoit]Global $FullGameList[1][7], $GameList[1], $nCol = -1, $bSet = 0, $nCurCol = -1, $nSortDir = 1
Global Const $LVM_GETITEM = $LVM_FIRST + 5
Global Const $WM_NOTIFY = 0x004E
Global Const $DebugIt = 1
Global Const $NM_FIRST = 0
Global Const $NM_LAST = (-99)
Global Const $NM_OUTOFMEMORY = ($NM_FIRST - 1)
Global Const $NM_CLICK = ($NM_FIRST - 2)
Global Const $NM_DBLCLK = ($NM_FIRST - 3)
Global Const $XFireGameList = @TempDir & "\gamel~.tmp"
Global Const $IniGames = @WindowsDir & "\installedgames.ini"
If Not FileExists($XFireGameList) Then
If MsgBox(52, "", $XFireGameList & " existiert nicht!" & @CRLF & "Willst du Sie dir nun Downloaden?") = 7 Then Exit
ShellExecute("http://www.autoit.de/thread.php?threadid=2988")
Exit
EndIf
$maingui = GUICreate("Xfire Game List - Script by GtaSpider", 393, 424, 201, 122, -1, $WS_EX_TOOLWINDOW)
GUISetBkColor(0x000000)
$lview1 = GUICtrlCreateListView("Name des Spiels|Pfad", 8, 8, 378, 350, BitOR($LVS_SINGLESEL, $LVS_SHOWSELALWAYS))
GUICtrlSendMsg(-1, 0x101E, 0, 170)
GUICtrlSendMsg(-1, 0x101E, 1, 200)
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x010101)
$prog1 = GUICtrlCreateProgress(8, 392, 378, 9)
$butStartGame = GUICtrlCreateButton("Starte &Spiel", 8, 363, 100, 22)
$butStartXfire = GUICtrlCreateButton("Starte X&fire", 112, 363, 100, 22)
$butRefXfGaLi = GUICtrlCreateButton("Liste &neu Einlesen", 216, 363, 172, 22)
$labStat = GUICtrlCreateLabel("Status: Bereit", 8, 403, 378, 15)
GUICtrlSetColor(-1, 0x00FF00)
GUIRegisterMsg($WM_NOTIFY, "WM_Notify_Events")
GUICtrlRegisterListViewSort($lview1, "LVSort")
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]If IniRead($IniGames, "options", "firststart", "0") = '0' Then
IniWrite($IniGames, "options", "firststart", "1")
If MsgBox(4, "", "Möchten Sie dieses Programm in Ihren Autostart kopieren?") = 6 Then FileCreateShortcut(@ScriptFullPath, @StartupCommonDir & "\Xfire GameList - By GtaSpider", @ScriptDir)
EndIf
If Not _ReadFromIni() Then
GUICtrlSetState($butRefXfGaLi, $GUI_DISABLE)
GUICtrlSetState($butStartGame, $GUI_DISABLE)
GUICtrlSetState($butStartXfire, $GUI_DISABLE)
_ReadGameList()
WinSetTitle($maingui, '', "Xfire Game List - Script by GtaSpider - " & _CheckInstalledGames() & " Spiele")
GUICtrlSetState($butRefXfGaLi, $GUI_ENABLE)
GUICtrlSetState($butStartGame, $GUI_ENABLE)
GUICtrlSetState($butStartXfire, $GUI_ENABLE)
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $lview1
$bSet = 0
$nCurCol = $nCol
GUICtrlSendMsg($lview1, $LVM_SETSELECTEDCOLUMN, GUICtrlGetState($lview1), 0)
DllCall("user32.dll", "int", "InvalidateRect", "hwnd", GUICtrlGetHandle($lview1), "int", 0, "int", 1)
Case $butStartGame
$aSplit = StringSplit(_GUICtrlListViewGetItemText($lview1, _GUICtrlListViewGetSelectedIndices($lview1)), "|", 1)
If $aSplit[0] < 2 Then
MsgBox(48, "", "Wählen Sie erst ein Spiel aus!")
ContinueLoop
EndIf
If MsgBox(4, "", "Möchten Sie das Spiel " & $aSplit[1] & " Starten?") = 7 Then ContinueLoop
Run($aSplit[2])
Case $butStartXfire
If Not FileExists(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Xfire", "") & "\Xfire.exe") Then
MsgBox(48, "", "XFire ist auf Ihrem PC nicht installiert!")
ContinueLoop
EndIf
Run(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Xfire", "") & "\Xfire.exe")
Case $butRefXfGaLi
GUICtrlSetState($butRefXfGaLi, $GUI_DISABLE)
GUICtrlSetState($butStartGame, $GUI_DISABLE)
GUICtrlSetState($butStartXfire, $GUI_DISABLE)
Global $GameList[1], $FullGameList[1][7]
_ReadGameList()
WinSetTitle($maingui, '', "Xfire Game List - Script by GtaSpider - " & _CheckInstalledGames() & " Spiele")
GUICtrlSetState($butRefXfGaLi, $GUI_ENABLE)
GUICtrlSetState($butStartGame, $GUI_ENABLE)
GUICtrlSetState($butStartXfire, $GUI_ENABLE)
GUICtrlSetData($prog1, 100)
EndSwitch
WEnd
Func _ReadGameList()
Local $aReadSectName, $i, $iProz, $iOldProz, $Pr_Handle, $b, $iBuf = 0
$aReadSectName = IniReadSectionNames($XFireGameList)
GUICtrlSetData($labStat, "Status: Lese Xfire GameList ein (0%)")
ReDim $FullGameList[$aReadSectName[0] + 1][7]
For $i = 1 To $aReadSectName[0]
$FullGameList[$i][0] = IniRead($XFireGameList, $aReadSectName[$i], "LongName", "")
$FullGameList[$i][1] = IniRead($XFireGameList, $aReadSectName[$i], "LauncherDirKey", "")
$FullGameList[$i][2] = IniRead($XFireGameList, $aReadSectName[$i], "LauncherExe", "")
$FullGameList[$i][3] = IniRead($XFireGameList, $aReadSectName[$i], "DetectExe", $FullGameList[$i][2])
$FullGameList[$i][4] = IniRead($XFireGameList, $aReadSectName[$i], "LauncherDirTruncAt", "")
$FullGameList[$i][5] = IniRead($XFireGameList, $aReadSectName[$i], "LauncherDirDefault", "")
$FullGameList[$i][6] = IniRead($XFireGameList, $aReadSectName[$i], "LauncherDirAppend", "")
$iProz = Round(100 * $i / $aReadSectName[0])
If $iProz <> $iOldProz Then
$iOldProz = $iProz
GUICtrlSetData($prog1, $iProz)
GUICtrlSetData($labStat, "Status: Lese Xfire GameList ein (" & $iProz & "%)")
EndIf
Next
$Pr_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', @AutoItPID)
DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $Pr_Handle[0])
DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $Pr_Handle[0])
EndFunc ;==>_ReadGameList
Func _CheckInstalledGames()
Local $sGamePath, $Tmp, $sBuf, $i, $b, $a, $c, $aFileList, $iFileEx = 0, $sRegEx, $iCount = 0, $iOldProz
_GUICtrlListViewDeleteAllItems($lview1)
For $i = 1 To UBound($FullGameList, 1) - 1
$iFileEx = 0
;LauncherDirKey --> $sGamePath
$sGamePath = RegRead(StringLeft($FullGameList[$i][1], StringInStr($FullGameList[$i][1], "\", -1, -1)), StringTrimLeft($FullGameList[$i][1], StringInStr($FullGameList[$i][1], "\", -1, -1)))
If @error Then
If $FullGameList[$i][5] <> '' Then $sGamePath = $FullGameList[$i][5]
EndIf
If $FullGameList[$i][4] <> '' Then
$sBuf = ''
$Tmp = StringSplit($sGamePath, $FullGameList[$i][4], 1)
For $b = 1 To $Tmp[0]
$sBuf &= $Tmp[$b]
Next
$sGamePath = $sBuf
EndIf
;Make GamePath free from bugs
$sGamePath = StringReplace(StringReplace($sGamePath, '"', ''), '%1', '')
$sGamePath = StringReplace(StringStripWS($sGamePath, 2), "\\", "\")
If StringRight($sGamePath, 1) <> "\" And $sGamePath <> "" Then $sGamePath &= "\"
If $FullGameList[$i][6] <> '' Then $sGamePath &= $FullGameList[$i][6] & "\"
$sGamePath = StringReplace(StringStripWS($sGamePath, 2), "\\", "\")
;Replace Envoirement Variables
If StringRegExp($sGamePath, "%(.*?)%") Then
$sRegEx = StringRegExp($sGamePath, "%(.*?)%", 3)
For $c = 0 To UBound($sRegEx) - 1
$sGamePath = StringReplace($sGamePath, "%" & $sRegEx[$c] & "%", EnvGet($sRegEx[$c]))
Next
EndIf
;Test -------
;~ If $FullGameList[$i][0] = 'TeamSpeak' Then InputBox("","[user='200010']Oscar[/user]: Bitte kopier dir diesen Pfad und packe ihn ins Forum, und sag mir ob das der Pfad zu der Splinter Cell exe ist.. :)",$sGamePath & $FullGameList[$i][2])
;/Test -------
;Replace \*\ in path
If StringInStr($FullGameList[$i][3], "\*\") And FileExists($sGamePath) Then
$aFileList = _FileListToArray(StringLeft($sGamePath & $FullGameList[$i][3], StringInStr($sGamePath & $FullGameList[$i][3], "\*\")), "*", 2)
For $a = 1 To $aFileList[0]
If FileExists(StringLeft($sGamePath & $FullGameList[$i][3], StringInStr($sGamePath & $FullGameList[$i][3], "\*\")) & $aFileList[$a] & StringTrimLeft($sGamePath & $FullGameList[$i][3], StringInStr($sGamePath & $FullGameList[$i][3], "\*\") + 1)) Then
$iFileEx = 1
EndIf
Next
EndIf
If FileExists($sGamePath & $FullGameList[$i][3]) Or $iFileEx Then
ReDim $GameList[$iCount + 1]
$GameList[$iCount] = GUICtrlCreateListViewItem($FullGameList[$i][0] & "|" & $sGamePath & $FullGameList[$i][2], $lview1)
GUICtrlSetImage(-1, $sGamePath & $FullGameList[$i][2], 0)
$iCount += 1
EndIf
$iProz = Round(100 * $i / UBound($FullGameList, 1) - 1)
If $iProz <> $iOldProz Then
$iOldProz = $iProz
GUICtrlSetData($prog1, $iProz)
GUICtrlSetData($labStat, "Status: Suche nach Installierten Spielen (" & $iProz & "%)")
EndIf
Next
_WriteToIni()
Return $iCount
EndFunc ;==>_CheckInstalledGames
Func _WriteToIni()
Local $i, $Tmp
FileDelete($IniGames)
IniWrite($IniGames, "options", "firststart", "1")
For $i = 0 To UBound($GameList) - 1
IniWrite($IniGames, "Games", $i, GUICtrlRead($GameList[$i]))
Next
GUICtrlSetData($labStat, "Status: Daten wurden in " & $IniGames & " geschrieben!")
AdlibEnable("_AdlibStat", 2000)
EndFunc ;==>_WriteToIni
Func _ReadFromIni()
Local $i, $irs, $Tmp
Global $GameList[1]
If (Not FileExists($IniGames)) Or (Not FileGetSize($IniGames)) Then Return 0
GUICtrlSetData($labStat, "Status: Lese daten von " & $IniGames)
_GUICtrlListViewDeleteAllItems($lview1)
$irs = IniReadSection($IniGames, "Games")
For $i = 1 To $irs[0][0]
ReDim $GameList[$i + 1]
$Tmp = StringSplit($irs[$i][1], "|")
$GameList[$i] = GUICtrlCreateListViewItem($Tmp[1] & "|" & $Tmp[2], $lview1)
GUICtrlSetImage(-1, $Tmp[2], 0)
Next
_AdlibStat()
WinSetTitle($maingui, '', "Xfire Game List - Script by GtaSpider - " & $irs[0][0] & " Spiele")
Return 1
EndFunc ;==>_ReadFromIni
Func _AdlibStat()
GUICtrlSetData($labStat, "Status: Bereit")
AdlibDisable()
EndFunc ;==>_AdlibStat
Func LVSort($hWnd, $nItem1, $nItem2, $nColumn)
Local $nSort
; Switch the sorting direction
If $nColumn = $nCurCol Then
If Not $bSet Then
$nSortDir = $nSortDir * - 1
$bSet = 1
EndIf
Else
$nSortDir = 1
EndIf
$nCol = $nColumn
$val1 = GetSubItemText($lview1, $nItem1, $nColumn)
$val2 = GetSubItemText($lview1, $nItem2, $nColumn)
; If it is the 3rd colum (column starts with 0) then compare the dates
If $nColumn = 2 Then
$val1 = StringRight($val1, 4) & StringMid($val1, 4, 2) & StringLeft($val1, 2)
$val2 = StringRight($val2, 4) & StringMid($val2, 4, 2) & StringLeft($val2, 2)
EndIf
$nResult = 0 ; No change of item1 and item2 positions
If $val1 < $val2 Then
$nResult = -1 ; Put item2 before item1
ElseIf $val1 > $val2 Then
$nResult = 1 ; Put item2 behind item1
EndIf
$nResult = $nResult * $nSortDir
Return $nResult
EndFunc ;==>LVSort
; Retrieve the text of a listview item in a specified column
Func GetSubItemText($nCtrlID, $nItemID, $nColumn)
Local $stLvfi = DllStructCreate("uint;ptr;int;int[2];int")
DllStructSetData($stLvfi, 1, $LVFI_PARAM)
DllStructSetData($stLvfi, 3, $nItemID)
Local $stBuffer = DllStructCreate("char[260]")
$nIndex = GUICtrlSendMsg($nCtrlID, $LVM_FINDITEM, -1, DllStructGetPtr($stLvfi));
Local $stLvi = DllStructCreate("uint;int;int;uint;uint;ptr;int;int;int;int")
DllStructSetData($stLvi, 1, $LVIF_TEXT)
DllStructSetData($stLvi, 2, $nIndex)
DllStructSetData($stLvi, 3, $nColumn)
DllStructSetData($stLvi, 6, DllStructGetPtr($stBuffer))
DllStructSetData($stLvi, 7, 260)
GUICtrlSendMsg($nCtrlID, $LVM_GETITEM, 0, DllStructGetPtr($stLvi));
[/autoit] [autoit][/autoit] [autoit]$sItemText = DllStructGetData($stBuffer, 1)
[/autoit] [autoit][/autoit] [autoit]$stLvi = 0
$stLvfi = 0
$stBuffer = 0
Return $sItemText
EndFunc ;==>GetSubItemText
Func WM_Notify_Events($hWndGUI, $MsgID, $wParam, $lParam)
#forceref $hWndGUI, $MsgID, $wParam
Local $tagNMHDR, $event, $hwndFrom, $code, $aSplit
$tagNMHDR = DllStructCreate("int;int;int", $lParam) ;NMHDR (hwndFrom, idFrom, code)
If @error Then Return
$event = DllStructGetData($tagNMHDR, 3)
Select
Case $wParam = $lview1
Select
Case $event = $NM_DBLCLK
$aSplit = StringSplit(_GUICtrlListViewGetItemText($lview1, _GUICtrlListViewGetSelectedIndices($lview1)), "|", 1)
If $aSplit[0] < 2 Then Return MsgBox(48, "", "Wählen Sie erst ein Spiel aus!")
If MsgBox(4, "", "Möchten Sie das Spiel " & $aSplit[1] & " Starten?") = 7 Then Return $GUI_RUNDEFMSG
Run($aSplit[2])
EndSelect
EndSelect
$tagNMHDR = 0
$event = 0
$lParam = 0
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_Notify_Events
Func OnAutoItExit()
FileDelete($XFireGameList)
EndFunc ;==>OnAutoItExit
Mfg Spider
Edit: Ich würde mich um rückmeldungen freunen Hat es geklappt (wurden alle spiele entdeckt)?
Hallo
erstens wird Livecam mit v und nicht mit f geschrieben und zweitens kann man die gui erst nach ca 10 sekunden schließen wenn man auf autorefresh gedrückt hat... so is es besser:
[autoit]#include <GUIConstants.au3>
#include <IE.au3>
_IEErrorHandlerRegister()
$oIE = _IECreateEmbedded()
GUICreate("Dreamhack - Livecam")
GUISetBkColor(0x3C3C3C)
GUICtrlCreateObj($oIE, 10, 10, 362, 300)
$Checkbox = GUICtrlCreateCheckbox("Auto refresh", 10, 320)
$button = GUICtrlCreateButton("refresh ", 90, 320)
GUISetState()
_IENavigate($oIE, "http://dreamhack.aufwaerts.info/webcam1.jpg")
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $button
_IEAction($oIE, "refresh")
Case $msg = $Checkbox
If GUICtrlRead($Checkbox) = 1 Then
AdlibEnable("refresh",5000)
Else
AdlibDisable()
EndIf
EndSelect
WEnd
Func refresh()
_IEAction($oIE, "refresh")
EndFunc
;----
; by Waluev
; help: Daniel W.&GtaSpider
; Pics from DreamhackLAN Party made by GunFood
;----
Vielen dank nochma an Gunfood für die Livecam
Mfg Spider
Hallo!
Ja, das wurde geändert... Nun ist SetDateFormat=0x1032 micht mehr =0x1005
So funktioniert es:
[autoit]#include <GUIConstants.au3>
HotKeySet("q", "quit")
GUICreate("", 200, 200)
$gui_newTask_starttime = GUICtrlCreateDate("00:00:00", 10, 152, 82, 21, BitOR($DTS_UPDOWN, $DTS_TIMEFORMAT, $WS_TABSTOP))
GUICtrlSendMsg(-1, 0x1032, 0, "HH:mm")
GUISetState(@SW_SHOW)
Do
$msg = GUIGetMsg()
Until $msg = -3
Func quit()
Exit
EndFunc
Mfg Spider
Hallo!
Probier das mal:
[autoit]Opt("WinTitleMatchMode",4)
$handle = WinGetHandle("[ACTIVE]")
MsgBox(0,"",WinGetTitle($handle))
Mfg Spider
Hallo!
1. Bitte keine Doppelposts, editiere deine Beiträge bitte immer.
2. Schau dir z.b. das mal an: http://www.autoitscript.com/forum/index.php?showtopic=46192&hl=CentralProcessor
Mfg SPider
Hallo!
Kein problem
Eben, ausserdem ist programmieren nich nur dafür dar um zu programmieren sondern auch zum lernen! Man wird durch jedes Skript schlauer, und das hört nie auf. Man lernt immer was neues dazu, auch ich..
Mfg Spider
Hallo!
Möglich, ja! Hier z.b. Snake von Markus: http://www.autoitscript.com/forum/index.php?showtopic=25027
Das läuft ohne GUI (sozusagen, natürlich mit GUI aber man sieht kein Rand usw...) Möglich ist das mit der Fantastischen DLL von Larry: http://www.autoitscript.com/forum/index.php?showtopic=19185
Da kannst du dich villeciht ein bisschen umschauen, mitprogrammieren kann ich aber leider nicht, habe in letzer zeit wenig zeit.. Helfen kann ich dir/euch natürlich immer wens mir möglich ist
Mfg Spider
Halllo!
Du darsft es frei verwenden, aber bei der RunWait funktion währe es schön wenn du zumindest da hinschreiben würdest ";by GtaSpider" oder sowas, natürlich kannst du es aber auch so lassen wie es momentan ist
Ein VNC Manager in autoit gibt es hier: http://www.autoitscript.com/forum/index.php?showtopic=33896
schön das ich helfen konnte
Mfg Spider
Hallo
Like this?
#include <GUIConstants.au3>
$tb_gui = GUICreate("LanToolBar by lev", 220, 35, 229, 297, $WS_POPUP, $WS_EX_TOPMOST)
GUICtrlCreatePic("",0,0,220,35,-1,$GUI_WS_EX_PARENTDRAG)
$daemonbutton = GUICtrlCreateButton("AButton1", 0, 0, 49, 33,0 )
GUICtrlSetState(-1,$GUI_ONTOP)
$eagamesbutton = GUICtrlCreateButton("AButton2", 56, 0, 49, 33,0 )
GUICtrlSetState(-1,$GUI_ONTOP)
$lankeybutton = GUICtrlCreateButton("AButton3", 112, 0, 49, 33,0 )
GUICtrlSetState(-1,$GUI_ONTOP)
$Button4 = GUICtrlCreateButton("AButton4", 168, 0, 49, 33,0 )
GUICtrlSetState(-1,$GUI_ONTOP)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Einfach ein bild mit keinem inhalt erstellt und das mit dem ExStyle '$GUI_WS_EX_PARENTDRAG' versehen
MfG Spider
Edit: So nochmal geupdatet, jetzt kann man auch auf die buttons klicken^^
Hallo!
Returnwert einer DLL geht über ein Array! Der normale rückgabe wert ist $return[0], also so:
Global $return[1]
[/autoit] [autoit][/autoit] [autoit]Func Key()
$dll = DllOpen ( "test.dll" )
$return = DllCall ( $dll, "str", "Open")
DllClose ($dll)
EndFunc
AdlibEnable ( "Key",5)
[/autoit] [autoit][/autoit] [autoit]For $i = 1 to 50
MsgBox ( 0, $i, $return[0], 1000)
Next
Meintest du das?
Mfg Spider
Hallo!
Also, wegen dem Screensaver: wenn es ein Normaler Windows Screensaver ist, ist es kein Problem. Weil die windowsclass von den windows Screensavern immer "WindowsScreenSaverClass" (sehr einfallsreich^^) heißt...
Das würde dann so aussehen:
Opt('WinTitleMatchMode',4)
AdlibEnable("_check",100)
$spl = SplashTextOn("",1,50,20,-1,-1,1)
$i = 0
While 1
$i += 1
ControlSetText($spl,"","Static1",$i)
Sleep(1000)
WEnd
Func _check()
While WinExists('[CLASS:WindowsScreenSaverClass]')
Sleep(50)
WEnd
EndFunc
Wegend dem Sperren von Windows hab ich noch keine idee, ich kann aber mal ein bisschen rumsuchen..
Mfg Spider