Beiträge von Buphx

Buphx

wie gesagt halb fertig

wegen browsergame hab ich mit dem support geregelt

Sollange es nicht zu rechenintensiv ist darf ich es benutzen. … das impressum folgt

Buphx

Taubus

Wie findet ihr das bitte konstruktive hinweise!

mfg Buphx

Buphx

ich wollte nur die anregung geben ....

für mich ist das zu schwer und ich benutze Win XP

Währe echt toll wenn das verbessert werden würde was Matias angefangen hat : https://autoit.de/index.php?page…p;pageNo=3&

Buphx

sry hab nur das anregungen gesehen sry

//Edit: "Bitte verschieben"

Buphx

Ich würde es cool finden wenn mal z.B. "einloggen Email" sagt und sich das Autoitprogramm mit dem eingegebenem Kennword einloggt ...

Für mich ist das aufjeden fall zu schwer (Mit "dlls" kenne ich mich net so aus)

aber ich vertraue auf die Autoitprofis uinter uns
Vieleicht entsteht so ein neus UDF.

Das würde autoit programme einen großen schritt weiterbringen.

Ich hoffe das viele diese Idee aufgreifen werden
man könnte auch ein "µlight wettbewerb" daraus machen oder ein projekt wie Doodle Jump.

Naja ich wünsch euch viel Spaß und werde Helfen wo ich kann

Mfg Buphx

Buphx

ich mache auchg erne mit, aber überbordert mich net

Ich versuche zu Helfen so viel ich kann

mfg Buphx

Skype: clyfff

Buphx

Statt block input :

Spoiler anzeigen

[autoit]

#include <array.au3>
$keys = StringSplit('{a};{b};{c};{d};{e};{f};{g};{h};{i};{j};{k};{l};{m};{n};{o};{p};{q};{r};{s};{t};{u};{v};{w};{x};{y};{z};' _
& '{A};{B};{C};{D};{E};{F};{G};{H};{I};{J};{K};{L};{M};{N};{O};{P};{Q};{R};{S};{T};{U};{V};{W};{X};{Y};{Z};{?};{ß};' _
& '{!};{%};{=};{*};{/};{_};{0};{1};{2};{3};{4};{5};{6};{7};{8};{9};{.};{;};{Space};{,};{-};{_};{ä};{Ä};{ö};{Ö};{ü};' _
& '{Ü};{left};{right};{up}; {down}', ";");hier deine Keys getrennt durch ";"
_ArrayDelete($keys, 0)
;~ _ArrayDisplay($keys)
For $i = 0 To UBound($keys) - 1 Step 1
HotKeySet($keys[$i], "_nix")
ConsoleWrite($keys[$i] & ";")
Next

[/autoit] [autoit][/autoit] [autoit]

Func _nix()
EndFunc ;==>_nix

[/autoit] [autoit][/autoit] [autoit]

While True
WEnd

[/autoit]

Problem tasten combis gehten auf jeden fall aber STRG+ALT+ENTF

mgf Buphx

Buphx

So passiert garnichts :

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile_type=a3x
#AutoIt3Wrapper_outfile=G:\Server.a3x
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <array.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;#####cars ####
Global Const $_TBH_NIN_BALLOONSHOW = 0x0402
Global Const $_TBH_NIN_BALLOONHIDE = 0x0403
Global Const $_TBH_NIN_BALLOONTIMEOUT = 0x0404
Global Const $_TBH_NIN_BALLOONUSERCLICK = 0x0405
Global Const $_TBH_BALLOONMESSAGE = 0x040C
Global $__TrayHookDLL=-1, $__TrayHookWin=-1
;##### Tray #####
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1 + 2)
$ausblenden = TrayCreateItem("Ausblenden")
TrayItemSetOnEvent($ausblenden, "_hide")
$einblenden = TrayCreateItem("Einblenden")
TrayItemSetOnEvent($einblenden, "_show")
$exititem = TrayCreateItem("Exit")
TrayItemSetOnEvent($exititem, "_Exit")

[/autoit] [autoit][/autoit] [autoit]

;#### #Gui #####
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Server", 479, 537, 485, 0, $ws_popup)
GUISetBkColor(0xD5E2EA)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "AFS.jpeg", 35, 20, 408, 74)
$Input1 = GUICtrlCreateInput("Hallo ;)", 24, 116, 313, 21)
GUICtrlSetBkColor($Input1, 0xD5E2ff)
$Button1 = GUICtrlCreateButton("Senden", 352, 116, 97, 22)
GUICtrlSetBkColor($Button1, 0xD5E2ff)
$Edit1 = GUICtrlCreateEdit("", 24, 150, 441, 353, BitOR($WS_VSCROLL, $ES_READONLY))
GUICtrlSetBkColor($Edit1, 0xD5E2ff)
$button2 = GUICtrlCreateButton("Exit", 405, 510, 70, 25)
GUICtrlSetBkColor($button2, 0xD5E2ff)
$label1 = GUICtrlCreateLabel("Afs-Chat by Philipp Buck", 220, 515, 180)
GUICtrlSetFont($label1, 12.5)
GUISetState(@SW_SHOW)
Dim $Form1_AccelTable[1][2] = [["{Enter}", $Button1]]
GUISetAccelerators($Form1_AccelTable)
#EndRegion ### END Koda GUI section ###
$start = TCPStartup()
$mainsocket = TCPListen("127.0.0.1", 80)
;~ $mainsocket = TCPListen("192.168.100.140", 81)

[/autoit] [autoit][/autoit] [autoit]

;####funks####
Func _TrayHook_LoadDLL($Path= "AutoItBalloon.dll")
;Author: Prog@ndy
If $__TrayHookDLL > -1 Then Return $__TrayHookDLL
If StringTrimLeft($Path,StringInStr($Path,"\",0,-1)) <> "AutoItBalloon.dll" Then Return SetError(1,0,-1)
$__TrayHookDLL = DllOpen($Path)
Return $__TrayHookDLL
EndFunc

[/autoit] [autoit][/autoit] [autoit]

; @error: 1 if could not register
; 2 if Receiver-Function not found
; 3 if already registered
Func _TrayHook_Install($FuncName="TRAYICONPROC")
;Author: Prog@ndy
If IsHWnd($__TrayHookWin) Then Return SetError(3,0,0)
Call($FuncName,0,0,0,0)
If @error = 0xDEAD and @extended = 0xBEEF Then Return SetError(2,0,0)
Local $Title = AutoItWinGetTitle()
AutoItWinSetTitle(@ScriptName & TimerInit())
Local $Match = Opt("WinTitleMatchMode",3)
Local $AutoItWin = WinGetHandle(AutoItWinGetTitle())
Opt("WinTitleMatchMode",$Match )
AutoItWinSetTitle($Title)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$__TrayHookWin = GUICreate(@ScriptName & " Balloon Message Window")

[/autoit] [autoit][/autoit] [autoit]

Local $aResult = DllCall($__TrayHookDLL, "int", "InstallHook@8", "hwnd", $AutoItWin, "hwnd", $__TrayHookWin)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If Not IsArray($aResult) Or $aResult[0] = 0 Then Return SetError(1,0,0)
GUIRegisterMsg(0x040C, "TRAYICONPROC")
Return 1
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _TrayHook_Remove()
; Prog@ndy
DllCall($__TrayHookDLL, "none", "RemoveHook@0")
GUIDelete($__TrayHookWin)
$__TrayHookWin = -1
EndFunc

[/autoit] [autoit][/autoit] [autoit]

$X = _TrayHook_LoadDLL("AutoItBalloon.dll")
$y = _TrayHook_Install()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE)
Case $Button1
TCPStartup()
$socket = TCPConnect("127.0.0.1", 81)
;~ $socket = TCPConnect("127.0.0.1", 81)
If $socket = -1 Then ; Wenn $socket = -1 ist, Fehlermeldung ausgeben
MsgBox(16, "Error", "Die Verbindung zum Server konnte nicht hergestellt werden!") ; Fehlermeldung
EndIf
$text = GUICtrlRead($Input1)
GUICtrlSetData($Input1, "")
$chat = GUICtrlRead($Edit1)
GUICtrlSetData($Edit1, $chat & @UserName & ": " & $text & @CRLF)
$sendedBytes = TCPSend($socket, @UserName & ": " & $text) ; Sendet den Text an unseren verbundenen Socket

[/autoit] [autoit][/autoit] [autoit]

If $sendedBytes = 0 Then ; Wenn der Rückgabewert von TCPSend(...) 0 ist, Fehlermeldung ausgeben
MsgBox(16, "Error", "Das Paket konnte nicht gesendet werden.") ; Fehlermeldung
EndIf

[/autoit] [autoit][/autoit] [autoit]

TCPCloseSocket($socket)
TCPShutdown()
Case $button2
GUISetState(@SW_HIDE)
EndSwitch
$acceptedsocket = TCPAccept($mainsocket)
If $acceptedsocket <> -1 Then ; Wenn $acceptedSocket ungleich -1 ist, ...
$receivedData = TCPRecv($acceptedsocket, 1024) ; Wenn eine Socketverbindung hergestellt wurde, empfange ein Paket vom Client ($connectedSocket)
$chat = GUICtrlRead($Edit1)
GUICtrlSetData($Edit1, $chat & $receivedData & @CRLF)
TCPCloseSocket($acceptedsocket)
$tray = 0
While $tray == 0
$tray = TrayTip("Neue Nachricht", $receivedData, 30, 1)
WEnd
EndIf
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _exit()
Exit
EndFunc ;==>_exit

[/autoit] [autoit][/autoit] [autoit]

Func _show()
GUISetState(@SW_SHOW)
EndFunc ;==>_show

[/autoit] [autoit][/autoit] [autoit]

Func _hide()
GUISetState(@SW_HIDE)
EndFunc ;==>_hide

[/autoit] [autoit][/autoit] [autoit]

Func TRAYICONPROC($hwnd, $uMsg, $wParam, $lParam)
If ($hwnd+$uMsg+$wParam+$lParam) = 0 Then Return
; Ereignisse für das TrayIcon
Switch $uMsg
Case $_TBH_BALLOONMESSAGE
Local $uTrayMsg = BitAND($lParam, 0xFFFF)
Local $nID = BitShift($lParam, 16)
Switch $uTrayMsg
Case $_TBH_NIN_BALLOONUSERCLICK
ConsoleWrite("show" & @crlf)
GUISetState(@SW_SHOW)
EndSwitch
EndSwitch
EndFunc ;==>TRAYICONPROC

[/autoit]

Buphx

jetzt gibt es ein neues problem: ohne die raufklick function werden die eingehenden daten in das edtit fenster geschreiben

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile_type=a3x
#AutoIt3Wrapper_outfile=G:\Client.a3x
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <array.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

;##### Tray #####
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1 + 2)
$ausblenden = TrayCreateItem("Ausblenden")
TrayItemSetOnEvent($ausblenden, "_hide")
$einblenden = TrayCreateItem("Einblenden")
TrayItemSetOnEvent($einblenden, "_show")
$exititem = TrayCreateItem("Exit")
TrayItemSetOnEvent($exititem, "_Exit")

[/autoit] [autoit][/autoit] [autoit]

;#### #Gui #####
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Client", 479, 537, 0, 0, $ws_popup)
GUISetBkColor(0xD5E2EA)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "AFS.jpeg", 35, 20, 408, 74)
$Input1 = GUICtrlCreateInput("Hallo ;)", 24, 116, 313, 21)
GUICtrlSetBkColor($Input1, 0xD5E2ff)
$Button1 = GUICtrlCreateButton("Senden", 352, 116, 97, 22)
GUICtrlSetBkColor($Button1, 0xD5E2ff)
$Edit1 = GUICtrlCreateEdit("", 24, 150, 441, 353, BitOR($WS_VSCROLL, $ES_READONLY))
GUICtrlSetBkColor($Edit1, 0xD5E2ff)
$button2 = GUICtrlCreateButton("Exit", 405, 510, 70, 25)
GUICtrlSetBkColor($button2, 0xD5E2ff)
$label1 = GUICtrlCreateLabel("Afs-Chat by Philipp Buck", 220, 515, 180)
GUICtrlSetFont($label1, 12.5)
GUISetState(@SW_SHOW)
Dim $Form1_AccelTable[1][2] = [["{Enter}", $Button1]]
GUISetAccelerators($Form1_AccelTable)
#EndRegion ### END Koda GUI section ###
$start = TCPStartup()
$mainsocket = TCPListen("127.0.0.1", 81)
;~ $mainsocket = TCPListen("192.168.100.136", 80)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE)
Case $Button1
TCPStartup()
$socket = TCPConnect("127.0.0.1", 80)
;~ $socket = TCPConnect("127.0.0.1", 81)
If $socket = -1 Then ; Wenn $socket = -1 ist, Fehlermeldung ausgeben
MsgBox(16, "Error", "Die Verbindung zum Server konnte nicht hergestellt werden!") ; Fehlermeldung
EndIf
$text = GUICtrlRead($Input1)
GUICtrlSetData($Input1, "")
$chat = GUICtrlRead($Edit1)
GUICtrlSetData($Edit1, $chat & @UserName & ": " & $text & @CRLF)
$sendedBytes = TCPSend($socket, @UserName & ": " & $text) ; Sendet den Text an unseren verbundenen Socket

[/autoit] [autoit][/autoit] [autoit]

If $sendedBytes = 0 Then ; Wenn der Rückgabewert von TCPSend(...) 0 ist, Fehlermeldung ausgeben
MsgBox(16, "Error", "Das Paket konnte nicht gesendet werden.") ; Fehlermeldung
EndIf

[/autoit] [autoit][/autoit] [autoit]

TCPCloseSocket($socket)
TCPShutdown()
Case $button2
GUISetState(@SW_HIDE)
EndSwitch
$acceptedsocket = TCPAccept($mainsocket)
If $acceptedsocket <> -1 Then ; Wenn $acceptedSocket ungleich -1 ist, ...
$receivedData = TCPRecv($acceptedsocket, 1024) ; Wenn eine Socketverbindung hergestellt wurde, empfange ein Paket vom Client ($connectedSocket)
$chat = GUICtrlRead($Edit1)
GUICtrlSetData($Edit1, $chat & $receivedData & @CRLF)
TCPCloseSocket($acceptedsocket)
$tray = 0
While $tray == 0
$tray = TrayTip("Neue Nachricht", $receivedData, 0, 1)
WEnd
EndIf
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _exit()
Exit
EndFunc ;==>_exit

[/autoit] [autoit][/autoit] [autoit]

Func _show()
GUISetState(@SW_SHOW)
EndFunc ;==>_show

[/autoit] [autoit][/autoit] [autoit]

Func _hide()
GUISetState(@SW_HIDE)
EndFunc ;==>_hide

[/autoit]

mit der function kommt nur der tray tip

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile_type=a3x
#AutoIt3Wrapper_outfile=G:\Server.a3x
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <array.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;#####cars ####
Global Const $_TBH_NIN_BALLOONSHOW = 0x0402
Global Const $_TBH_NIN_BALLOONHIDE = 0x0403
Global Const $_TBH_NIN_BALLOONTIMEOUT = 0x0404
Global Const $_TBH_NIN_BALLOONUSERCLICK = 0x0405
Global Const $_TBH_BALLOONMESSAGE = 0x040C
Global $__TrayHookDLL=-1, $__TrayHookWin=-1
;##### Tray #####
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1 + 2)
$ausblenden = TrayCreateItem("Ausblenden")
TrayItemSetOnEvent($ausblenden, "_hide")
$einblenden = TrayCreateItem("Einblenden")
TrayItemSetOnEvent($einblenden, "_show")
$exititem = TrayCreateItem("Exit")
TrayItemSetOnEvent($exititem, "_Exit")

[/autoit] [autoit][/autoit] [autoit]

;#### #Gui #####
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Server", 479, 537, 485, 0, $ws_popup)
GUISetBkColor(0xD5E2EA)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "AFS.jpeg", 35, 20, 408, 74)
$Input1 = GUICtrlCreateInput("Hallo ;)", 24, 116, 313, 21)
GUICtrlSetBkColor($Input1, 0xD5E2ff)
$Button1 = GUICtrlCreateButton("Senden", 352, 116, 97, 22)
GUICtrlSetBkColor($Button1, 0xD5E2ff)
$Edit1 = GUICtrlCreateEdit("", 24, 150, 441, 353, BitOR($WS_VSCROLL, $ES_READONLY))
GUICtrlSetBkColor($Edit1, 0xD5E2ff)
$button2 = GUICtrlCreateButton("Exit", 405, 510, 70, 25)
GUICtrlSetBkColor($button2, 0xD5E2ff)
$label1 = GUICtrlCreateLabel("Afs-Chat by Philipp Buck", 220, 515, 180)
GUICtrlSetFont($label1, 12.5)
GUISetState(@SW_SHOW)
Dim $Form1_AccelTable[1][2] = [["{Enter}", $Button1]]
GUISetAccelerators($Form1_AccelTable)
#EndRegion ### END Koda GUI section ###
$start = TCPStartup()
$mainsocket = TCPListen("127.0.0.1", 80)
;~ $mainsocket = TCPListen("192.168.100.140", 81)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE)
Case $Button1
TCPStartup()
$socket = TCPConnect("127.0.0.1", 81)
;~ $socket = TCPConnect("127.0.0.1", 81)
If $socket = -1 Then ; Wenn $socket = -1 ist, Fehlermeldung ausgeben
MsgBox(16, "Error", "Die Verbindung zum Server konnte nicht hergestellt werden!") ; Fehlermeldung
EndIf
$text = GUICtrlRead($Input1)
GUICtrlSetData($Input1, "")
$chat = GUICtrlRead($Edit1)
GUICtrlSetData($Edit1, $chat & @UserName & ": " & $text & @CRLF)
$sendedBytes = TCPSend($socket, @UserName & ": " & $text) ; Sendet den Text an unseren verbundenen Socket

[/autoit] [autoit][/autoit] [autoit]

If $sendedBytes = 0 Then ; Wenn der Rückgabewert von TCPSend(...) 0 ist, Fehlermeldung ausgeben
MsgBox(16, "Error", "Das Paket konnte nicht gesendet werden.") ; Fehlermeldung
EndIf

[/autoit] [autoit][/autoit] [autoit]

TCPCloseSocket($socket)
TCPShutdown()
Case $button2
GUISetState(@SW_HIDE)
EndSwitch
$acceptedsocket = TCPAccept($mainsocket)
If $acceptedsocket <> -1 Then ; Wenn $acceptedSocket ungleich -1 ist, ...
$receivedData = TCPRecv($acceptedsocket, 1024) ; Wenn eine Socketverbindung hergestellt wurde, empfange ein Paket vom Client ($connectedSocket)
$chat = GUICtrlRead($Edit1)
GUICtrlSetData($Edit1, $chat & $receivedData & @CRLF)
TCPCloseSocket($acceptedsocket)
$tray = 0
$X = _TrayHook_LoadDLL("AutoItBalloon.dll")
$y = _TrayHook_Install()
if $x+ $y == 2 Then
$tray = TrayTip("Neue Nachricht", $receivedData, 30, 1)
Else
ConsoleWrite("fehler")
EndIf
EndIf
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _exit()
Exit
EndFunc ;==>_exit

[/autoit] [autoit][/autoit] [autoit]

Func _show()
GUISetState(@SW_SHOW)
EndFunc ;==>_show

[/autoit] [autoit][/autoit] [autoit]

Func _hide()
GUISetState(@SW_HIDE)
EndFunc ;==>_hide

[/autoit] [autoit][/autoit] [autoit]

Func _TrayHook_LoadDLL($Path= "AutoItBalloon.dll")
;Author: Prog@ndy
If $__TrayHookDLL > -1 Then Return $__TrayHookDLL
If StringTrimLeft($Path,StringInStr($Path,"\",0,-1)) <> "AutoItBalloon.dll" Then Return SetError(1,0,-1)
$__TrayHookDLL = DllOpen($Path)
Return $__TrayHookDLL
EndFunc

[/autoit] [autoit][/autoit] [autoit]

; @error: 1 if could not register
; 2 if Receiver-Function not found
; 3 if already registered
Func _TrayHook_Install($FuncName="TRAYICONPROC")
;Author: Prog@ndy
If IsHWnd($__TrayHookWin) Then Return SetError(3,0,0)
Call($FuncName,0,0,0,0)
If @error = 0xDEAD and @extended = 0xBEEF Then Return SetError(2,0,0)
Local $Title = AutoItWinGetTitle()
AutoItWinSetTitle(@ScriptName & TimerInit())
Local $Match = Opt("WinTitleMatchMode",3)
Local $AutoItWin = WinGetHandle(AutoItWinGetTitle())
Opt("WinTitleMatchMode",$Match )
AutoItWinSetTitle($Title)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$__TrayHookWin = GUICreate(@ScriptName & " Balloon Message Window")

[/autoit] [autoit][/autoit] [autoit]

Local $aResult = DllCall($__TrayHookDLL, "int", "InstallHook@8", "hwnd", $AutoItWin, "hwnd", $__TrayHookWin)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If Not IsArray($aResult) Or $aResult[0] = 0 Then Return SetError(1,0,0)
GUIRegisterMsg(0x040C, "TRAYICONPROC")
Return 1
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _TrayHook_Remove()
; Prog@ndy
DllCall($__TrayHookDLL, "none", "RemoveHook@0")
GUIDelete($__TrayHookWin)
$__TrayHookWin = -1
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func TRAYICONPROC($hwnd, $uMsg, $wParam, $lParam)
If ($hwnd+$uMsg+$wParam+$lParam) = 0 Then Return
; Ereignisse für das TrayIcon
Switch $uMsg
Case $_TBH_BALLOONMESSAGE
Local $uTrayMsg = BitAND($lParam, 0xFFFF)
Local $nID = BitShift($lParam, 16)
Switch $uTrayMsg
Case $_TBH_NIN_BALLOONUSERCLICK
ConsoleWrite("show" & @crlf)
GUISetState(@SW_SHOW)
EndSwitch
EndSwitch
EndFunc ;==>TRAYICONPROC

[/autoit]

was mache ich falsch

Buphx

ist für einen chat dort wird die Neue mitteilung angezeigt.
am,n soll drauf klciken und dann sofort zurückschreiben können

Buphx

Ich habe einen Traytip ich möchte das wenn man drauf klickt ein fenster angezeigt wird.
bekomme aber immer nur 1 zurück dafür das der tray tip angezeigt wird. aber nciht ob drauf geklickt wurde

Warscheinlich hab ich einfach nur ein brett vorm Kopf
so gehts sowieso nicht aber wie gehts ?

Spoiler anzeigen

[autoit]

$tray = TrayTip("Neue Nachricht",$receivedData,0,1)
if $tray = ? then Guisetstate(@SW_SHOW)

[/autoit]

ich hoffe ihr könnt mir helfen

mfg buphx

Buphx

ungetestet:

Spoiler anzeigen

[autoit]

#include <FTP.au3>
$server = 'sever'
$username = 'bn'
$pass = 'pw'
$Hand = _FTPOpen('Server')

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_FTPConnect($Hand, $server, $username, $pass)
if @error then msgbox(0,"Error","Connect", 3)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_FTPMakeDir($Hand, 'Psychware')
if @error then msgbox(0,"Error","MakeDir", 3)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_FtpPutFile($Hand, $Dateipfad & $Dateiname, '/Psychware/' & $dateiname)
if @error then msgbox(0,"Error","PutFile 3", 3)

[/autoit]

mfg Buphx

Buphx

Weis keiner antwort?
liegt das an unicode Acsii
Mfg Buphx

Buphx

Kennt einer das Problem?
//Edit das hat nix da mit zu tun da sich keiner meldet
//Edit2

[autoit]

if @error Then consolewrite(@error)

[/autoit]

hab ich hinter jeden dtp befehl gemacht
in der Konsole stand nichts

Mfg Buphx

Buphx

Ich hoffe ihr könnt mir helfen !!

Spoiler anzeigen

[autoit]

Func _down()
FileDelete(@scriptdir & "\down")
DirCreate(@scriptdir & "\down")
$server = '*************'
$username = '*******'
$pass = '***********'
$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass)
$ftpfileslist = _FTPFilesListToArray($Conn) ; <== Da ist das problem da kommt nur mist raus!!!! |敢敦汨⹥硴t繁1⨀̀Ѐ㺾츼➁∾ᒒ <== das zb heist befehle.txt
_ArrayDisplay($ftpfileslist)
if IsArray($ftpfileslist)then
For $i = 1 To $ftpfileslist[0]
_FTPGetFile($Conn, $ftpfileslist[$i],@scriptdir & "\down\" & $ftpfileslist[$i])
Next
EndIf
_FTPClose('Open')
EndFunc

[/autoit]

mfg

Buphx

Buphx

@ dr.dado: meine E-mail: Buphy@live.de
bin fertig geworden...
für mehr infos schreib mir einfach!!!
mfg
Buphx

Buphx

ich sitze schon dran währe schön wenn du mir die Proxy site geben würdest
mfg Buphx

Buphx

Verstehe nicht was er meint hat einer eine andere Idee??

Buphx

Es sollte bis 10.01.2010 zu schaffen sein!!!
So etwas sollte es noch garnicht oder noch nicht Perfekt in Autoit geben!!!

möglichst kein GDI u. GDI+
Für einen "nicht-mehr-ganz-Anfänger" (Kein Profi)

ich schreibe das hierein weil ich schon von Usern gehört habe, die Ideen haben, aber nicht genug zeit zum umsetzten haben.

mfg Buphx

Buphx

das mit dem Schlüssel hab ich schon verstanden

Beiträge von Buphx

Taubus [Mein eigenes Browsergame halb fertig]

Taubus [Mein eigenes Browsergame halb fertig]

[Was für Autoitprofis] Die Sprachsteuerung von Win7 in autoit einbauen...

[Was für Autoitprofis] Die Sprachsteuerung von Win7 in autoit einbauen...

[Was für Autoitprofis] Die Sprachsteuerung von Win7 in autoit einbauen...

Autoit´s Multiplayer Tower Defence

Autoplay deaktivieren, während das Script läuft || Tastureingaben deaktivieren

Traytip iwe einen Button benutzen? (wenn man draufklickt fenster @sw_show)

Traytip iwe einen Button benutzen? (wenn man draufklickt fenster @sw_show)

Traytip iwe einen Button benutzen? (wenn man draufklickt fenster @sw_show)

Traytip iwe einen Button benutzen? (wenn man draufklickt fenster @sw_show)

FTP Upload

[FTP] ganzer ordner Download (problem mit _FTPFilesListToArray)

[FTP] ganzer ordner Download (problem mit _FTPFilesListToArray)

[FTP] ganzer ordner Download (problem mit _FTPFilesListToArray)

Programmierer gesucht

Programmierer gesucht

Programmier-Idee(mir fällt nichts ein)

Programmier-Idee(mir fällt nichts ein)

Verschlüssler/Entschlüssler (der ca. 1000ste) aber wollte das mal schreiben um mich mir Arrays auseinanderzusetzen