Ich hatte gerad Pc problem, wollte eig neues Therad auf machen, hab es gelöscht^^
Beiträge von Jam00
-
-
Ich habe dich schon im ICQ, aber du bist nicht on:-p
Bei mir geht es auch! Bist du dir sicher das du den IE benutzt? -
Ich habe es so Probiert, aber ich bekomme es nicht hin das er die Grafic als ICON speichert:(
Spoiler anzeigen
[autoit]#include <WindowsConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GDIPlus.au3>#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$hWnd = GUICreate("TrayIcon", 190, 52, 193, 125)
$Slider1 = GUICtrlCreateSlider(2, 2, 150, 45)
GUICtrlSetLimit(-1, 16, 0)
GUICtrlSetData (-1,8)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###_GDIPlus_Startup()
[/autoit]
$hGraphics = _GDIPlus_GraphicsCreateFromHWND($hWnd)
$Pen1 = _GDIPlus_PenCreate(0xFF0000FF,16)
$Pen2 = _GDIPlus_PenCreate(0xFFFF0000,16)
_GDIPlus_GraphicsDrawLine($hGraphics, 170, 10, 170, 26 - GUICtrlRead ($Slider1),$Pen1)
_GDIPlus_GraphicsDrawLine($hGraphics, 170, 10 +GUICtrlRead ($Slider1), 170, 26,$Pen2)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Slider1
_Ico(GUICtrlRead ($Slider1))
EndSwitch
WEnd
Func _Ico($Status)
_GDIPlus_GraphicsDrawLine($hGraphics, 170, 10, 170, 10 + $Status,$Pen1)
_GDIPlus_GraphicsDrawLine($hGraphics, 170, 10 +$Status, 170, 26,$Pen2)
_GDIPlus_ImageSaveToFile(_GDIPlus_BitmapCreateFromGraphics(16,16, $hGraphics),@ScriptDir & "\1.ico")
EndFunc -
-
Warum wird das Spiel eigentlich geschpechert wenn man es nicht laden kann? Und warum Machst du für jedes Spiel 5 Ini? Da reicht doch eine
-
Soll das auf einem PC laufen oder zwischen zwei PCs?
-
Also willst du einfach das der Immer guck ob sich in der datei was erändert hat und wenn das er es anzeigt?
-
-
Spoiler anzeigen
[autoit]#include <Misc.au3>
[/autoit] [autoit][/autoit] [autoit]WaitAnyKey()
[/autoit] [autoit][/autoit] [autoit]Func WaitAnyKey()
[/autoit]
While 1
For $i = 0 To 255
If _IsPressed(Hex($i,2)) Then
; ConsoleWrite("Taste " & Hex($i,2) & " gedrückt!" & @CRLF)
ExitLoop 2
EndIf
Next
Sleep(50)
WEnd
EndFunc -
Oder so:
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$hwnd = GUICreate("Form1", 200, 200, Default, Default,$WS_POPUP, $WS_EX_LAYERED)
GUISetBkColor (0xFFFFFF)
$Pic1 = GUICtrlCreatePic(@WindowsDir & "\Angler.bmp", 30, 30, 125, 125, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
_WinAPI_SetLayeredWindowAttributes($hWnd, 0xFFFFFF, 255)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitEndSwitch
[/autoit]
WEnd
Func _WinAPI_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $dwFlages = 0x03, $isColorRef = False)
; progandy
If $dwFlages = Default Or $dwFlages = "" Or $dwFlages < 0 Then $dwFlages = 0x03
If Not $isColorRef Then
$i_transcolor = Hex(String($i_transcolor), 6)
$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $dwFlages)
Select
Case @error
Return SetError(@error, 0, 0)
Case $Ret[0] = 0
Return SetError(4, _WinAPI_GetLastError(), 0)
Case Else
Return 1
EndSelect
EndFunc ;==>_WinAPI_SetLayeredWindowAttributes -
Ist echt cool!
-
Irgendwie weicht das hier doch ein Bischen vom Thema ab!
-
Spoiler anzeigen
[autoit]#include <ComboConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>Dim $Combo[1]
[/autoit] [autoit][/autoit] [autoit]
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 152, 604, 193, 125)
$Combo[0] = GUICtrlCreateCombo("", 2, 2, 145, 25)
GUICtrlSetData(-1, "Neu")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###Do
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Combo[UBound ($Combo) -1]
$Pos = ControlGetPos ($Form1,"",$Combo[UBound ($Combo) -1])
_New("Neu",2,$Pos[1] + $Pos[3] +2,145,25)
EndSwitch
Until $nMsg = -3
Func _New($sText,$X,$Y,$W,$H)
_ArrayAdd ($Combo,GUICtrlCreateCombo("", $X, $Y, $W, $H))
GUICtrlSetData ($Combo[UBound ($Combo) -1],$sText)
EndFunc -
Genau das Gleiche Terad habe ich auch mal auf gemacht, da hat keiner was nützliches Gepostet, mal sehen ob jetzt jemand schlauer ist^^
-
Also bei mir läauft alles ohne Probleme bis auf das Drehen, also das er erkennt wenn man die maus dreht, da muss ich noch ein bischen basteln^^
-
Hey, du hast eine PN! Hast du ICQ?
-
Das läauft aber übers Internet, wenn du eine Internetverbindung hast geht es!
-
Ist ganz leicht:
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$hWnd = GUICreate("Form1", 633, 447, Default,Default,$WS_POPUP, $WS_EX_LAYERED)
GUISetBkColor (0x000000)
$Label1 = GUICtrlCreateLabel("Label1", 32, 134, 34, 13)
GUICtrlSetColor (-1,0xFF0000)
_WinAPI_SetLayeredWindowAttributes($hWnd, 0x000000, 255)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitEndSwitch
[/autoit]
WEnd
Func _WinAPI_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $dwFlages = 0x03, $isColorRef = False)
; progandy
If $dwFlages = Default Or $dwFlages = "" Or $dwFlages < 0 Then $dwFlages = 0x03
If Not $isColorRef Then
$i_transcolor = Hex(String($i_transcolor), 6)
$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $dwFlages)
Select
Case @error
Return SetError(@error, 0, 0)
Case $Ret[0] = 0
Return SetError(4, _WinAPI_GetLastError(), 0)
Case Else
Return 1
EndSelect
EndFunc ;==>_WinAPI_SetLayeredWindowAttributes -
TCP ist übers Internet!
Beim Server probier es mit der Ersten und wenn es damit nicht geht die nägste, und die Ip musst du dann bei den Clients eingeben -
Wer Vista benutzt ist selber schuld
