Beiträge von Greek

Greek

Mit Char ist es auf 124:

[autoit]

MsgBox ( 0, "", Chr(124) )

[/autoit]

Edit:
Kannst dir auch so ne Table schreiben da siehst du ja auf welchem Zeichen es ist:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ASCII Table", 200, 400, -1, -1)
$Edit1 = GUICtrlCreateEdit("", 10, 16, 180, 329)
$Button1 = GUICtrlCreateButton("Go", 65, 360, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

Global $a

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
For $i=32 to 255 Step +1
$a=$a&$i&"--> "&Chr($i)&@CRLF
Next
GUICtrlSetData ( $Edit1, $a )
EndSwitch
WEnd

[/autoit]

Greek

Vieleicht über die Memory

Greek

Das Problem hatte ich hier auch:

[ gelöst ] Pong mit GDI+, wie mach ich den Strich beweglich?

Anscheinend kann man die Dinger nur übermalen

Spoiler anzeigen

[autoit]

#include <GDIPlus.au3>
#include <WindowsConstants.au3>

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

HotKeySet ("{ESC}","_ende")
Global $sString="Blub"

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

_GDIPlus_Startup()

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

$hGui=GUICreate("Hallo", 500, 200, -1, -1,$WS_POPUP)
GUISetState()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hGui)
$hBrush = _GDIPlus_BrushCreateSolid (0xFF00007F)
$hFormat = _GDIPlus_StringFormatCreate ()
$hFamily = _GDIPlus_FontFamilyCreate ("Arial")
$hFont = _GDIPlus_FontCreate ($hFamily, 12, 2)
$tLayout = _GDIPlus_RectFCreate (140, 110, 0, 0)
$aInfo = _GDIPlus_GraphicsMeasureString ($hGraphic, $sString, $hFont, $tLayout, $hFormat)
_GDIPlus_GraphicsDrawStringEx ($hGraphic, $sString, $hFont, $aInfo[0], $hFormat, $hBrush)

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

Sleep ( 1500 )
_GDIPlus_GraphicsClear($hGraphic,0xFFE2E2E2)

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

Do
Sleep(100)
Until ""

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

Func _ende()
_GDIPlus_Shutdown()
Exit
EndFunc

[/autoit]

Oder mit nem Rechteck drübermalen.

Greek

Ich habs mal ein bischen weiter gemacht
Hier fallst du es brauchst:

Spoiler anzeigen

[autoit]

HotKeySet("{ESC}","_ende")
Global $go=1

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

$Id=AgentStartup()

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

AgentShow($Id[1])
AgentSetPosition($Id[1])
AgentSpeak($Id[1],"Hallo")
AgentAnimate($Id[1],"Confused")
AgentThink($Id[1],"Hört der mich??")

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

Do
Sleep ( 100 )
Until $go=0

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

AgentShutdown($Id[0],$Id[1])

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

Func AgentStartup($char="merlin.acs")
Local $result[2]
$Agent = "Agent.Control.2"
If IsObj($Agent) Then
$Agent = ObjGet("",$Agent)
Else
$Agent = ObjCreate($Agent)
EndIf
$Agent.Connected = 1
$Agent.Characters.Load ("Rover",@WindowsDir & "\Msagent\Chars\"&$char)
$A_Chr = $Agent.Characters.Character("rover")
$result[0]=$Agent
$result[1]=$A_Chr
Return $result
EndFunc

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

Func AgentShow($CharId)
$CharId.Show()
EndFunc

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

Func AgentAnimate($CharId,$AnimationName)
$CharId.Play($AnimationName)
EndFunc

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

Func AgentSpeak($CharId,$Text)
$CharId.Speak($Text)
EndFunc

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

Func AgentThink($CharId,$Text)
$CharId.Think($Text)
EndFunc

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

Func AgentSetPosition($CharId,$X=-1,$Y=-1)
If $X=-1 Then $X=@DesktopWidth/2-100
If $Y=-1 Then $Y=@DesktopHeight/2-100
$CharId.MoveTo ($X,$Y)
EndFunc

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

Func AgentHide($CharId)
$CharId.Hide()
EndFunc

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

Func AgentShutdown($Agent,$CharId)
$CharId.Hide()
$CharId.Stop()
$Agent.Connected = 0
$Agent = ""
EndFunc

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

Func _ende()
$go=0
EndFunc

[/autoit]

Greek

Ich glaub das geht nicht:

Zitat

Für ein normales InternetExplorer-Objekt gibt es Eigenschaften (z.B. erzeugt von _IECreate), die für dieses Objekt nicht verfügbar sind.
Beispielsweise Statusleiste, Adressleiste und andere gibt es für einen Browser, aber nicht für ein eingebettetes Browserobjekt.

Greek

Da ist er ja!

[autoit]

$Frm_Main = GUICreate("TestGUI")
GUISetBkColor(0x003399)
$Agent = "Agent.Control.2"
If IsObj($Agent) Then
$Agent = ObjGet("",$Agent)
Else
$Agent = ObjCreate($Agent)
EndIf
$Agent.Connected = 1
$aEmbedded = GUICtrlCreateObj($Agent, 10, 10, 60, 60)
$Agent.Characters.Load ("Rover",@WindowsDir & "\Msagent\Chars\merlin.acs")
$A_Chr = $Agent.Characters.Character("rover")
$A_Chr.Show()
$A_Chr.Play("Thinking")
GUISetState()

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

While 1
If GUIGetMsg() = -3 Then
$A_Chr.Hide()
MsgBox(0, "Test", $A_Chr.stop)
$Agent.Connected = 0
$Agent = ""
ExitLoop
EndIf
Wend

[/autoit]

Greek

Vieleicht hilft dir das da weiter:

http://msdn.microsoft.com/en-us/library/ms695930(VS.85).aspx

Greek

Habs hingegrigt.

Hier:

Spoiler anzeigen

[autoit]

#include <GDIplus.au3>
#Include <ScreenCapture.au3>

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

_ClonePicDown(@DesktopDir&"\Bild2Druck.JPG", @DesktopDir&"\test.jpg")

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

Func _ClonePicDown($PfadZuBild,$PfadNeuerName)
; Greek
_GDIPlus_Startup()
$hImg1 = _GDIPlus_ImageLoadFromFile($PfadZuBild)
$H=_GDIPlus_ImageGetHeight($hImg1)
$W=_GDIPlus_ImageGetWidth($hImg1)
$hGDIBitmap = _ScreenCapture_Capture("",0,0,$W,$H*2)
$hBitmap = _GDIPlus_BitmapCreateFromHBITMAP($hGDIBitmap)
_WinAPI_DeleteObject($hGDIBitmap)
$hGraphic = _GDIPlus_ImageGetGraphicsContext($hBitmap)

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

$ImageAttributes = _GDIPlus_ImageAttributesCreate()

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

_DrawImage($hGraphic, $hImg1, 0,0,$ImageAttributes)
_DrawImage($hGraphic, $hImg1, 0,$H,$ImageAttributes)

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

_GDIPlus_ImageSaveToFile($hBitmap, $PfadNeuerName)

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

_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_ImageDispose($hImg1)
_GDIPlus_BitmapDispose($hBitmap)
$x2 = _GDIPlus_ImageAttributesDispose($ImageAttributes)
_GDIPlus_Shutdown()
EndFunc

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

Func _DrawImage($hGraphics, $hImage, $X, $Y, $pImageAttributes)
; Prog@ndy
Local $H = _GDIPlus_ImageGetHeight($hImage)
Local $W = _GDIPlus_ImageGetWidth($hImage)
Local $Result = _GDIPlus_GraphicsDrawImageRectRectAttr($hGraphics, $hImage, 0, 0, $W, $H, $X, $Y, $W, $H, 2, $pImageAttributes)
Return SetError(@error,0,$Result)
EndFunc

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

Func _GDIPlus_GraphicsDrawImageRectRectAttr($hGraphics, $hImage, $iSrcX, $iSrcY, $iSrcWidth, $iSrcHeight, $iDstX, $iDstY, $iDstWidth, $iDstHeight, $iUnit = 2, $pImageAttributes=0)
Local $aResult
$aResult = DllCall($ghGDIPDll, "int", "GdipDrawImageRectRectI", "ptr", $hGraphics, "ptr", $hImage, "int", $iDstX, "int", _
$iDstY, "int", $iDstWidth, "int", $iDstHeight, "int", $iSrcX, "int", $iSrcY, "int", $iSrcWidth, "int", _
$iSrcHeight, "int", $iUnit, "ptr", $pImageAttributes, "ptr", 0, "ptr", 0)
If @error Then Return SetError(@error, @extended, False)
Return SetError($aResult[0], 0, $aResult[0] = 0)
EndFunc ;==>_GDIPlus_GraphicsDrawImageRectRectAttr

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

Func _GDIPlus_ImageAttributesCreate()
; Prog@ndy
Local $aResult = DllCall($ghGDIpDLL, "int", "GdipCreateImageAttributes", "ptr*", 0)
If @error Then Return SetError(1,@error,0)
Return SetError($aResult[0],0,$aResult[1])
EndFunc

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

Func _GDIPlus_ImageAttributesDispose($pImageAttributes)
; Prog@ndy
Local $aResult = DllCall($ghGDIpDLL, "int", "GdipDisposeImageAttributes", "ptr", $pImageAttributes)
If @error Then Return SetError(1,@error,0)
Return SetError($aResult[0],0,$aResult[0]=0)
EndFunc

[/autoit]

Edit:
Hab mal meins verbessert, ist jetzt viel schneller ( von 128 ms auf 62 ms ).

Greek

Wenn ich was AutoItSetOptions RunErrorFatal auskommentier gehts, das kommt raus:

[autoit]

; ----------------------------------------------------------------------------
;
; VBScript to AutoIt Converter v0.4
;
; ----------------------------------------------------------------------------

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

;VA $sh=WScript.ObjCreate("WScript.Shell")

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

$sh.run ("Telnet samsung.router 30023")

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

;VA WScript.Sleep 600

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

$sh.SendKeys ("root"&vbcr)
;VA WScript.Sleep 500

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

$sh.SendKeys ("banana"&vbcr)
;VA WScript.Sleep 500

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

$sh.SendKeys ("kill `ps |grep pppoe1 |cut -f1 -d'r' |sed -n '1p'`"&vbcr)
;VA Wscript.Sleep 1000

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

$sh.SendKeys ("pppd call pppoe1"&vbcr)
;VA Wscript.Sleep 500

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

$sh.SendKeys ("exit 0"&vbcr)
;VA Wscript.Sleep 500

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

$sh.SendKeys ("Quit"&vbcr)

[/autoit]

Bin mal schlafen Gute Nacht.

Greek

[autoit]

$sh=ObjCreate("WScript.Shell")

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

$sh.run ("Telnet samsung.router 30023")

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

Sleep (600)

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

$sh.SendKeys ("root"&vbcr)
Sleep (500)

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

$sh.SendKeys ("banana"&vbcr)
Sleep (500)

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

$sh.SendKeys ("kill `ps |grep pppoe1 |cut -f1 -d'r' |sed -n '1p'`"&vbcr)
Sleep (1000)

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

$sh.SendKeys ("pppd call pppoe1"&vbcr)
Sleep (500)

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

$sh.SendKeys ("exit 0"&vbcr)
Sleep (500)

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

$sh.SendKeys ("Quit"&vbcr)

[/autoit]

So vieleicht Das Programm hat irgendwie nichtmehr richtig Funktioniert...

Greek

VB to AutoIt Converter kein plan ob der noch richtig Funktioniert.

Greek

Zitat von PokerFace

Gehört zwar nicht hierher, aber kennt jemand dieses Problem?

Neustart mal gemacht? Wirkt bei Windows wunder!

Greek

Das müsste auf jedenfall gehen:

Spoiler anzeigen

[autoit]

#include <WindowsConstants.au3>
#include <WinAPI.au3>

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

Global $aButton[5]

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

$gui = GUICreate("Test Windows regions", 150, 150, @DesktopWidth-170, -1, $WS_POPUP)
$aButton[0] = GUICtrlCreateButton("Button 1", 0, 0, 150)
$aButton[1] = GUICtrlCreateButton("Button 2", 0, 30, 150)
$aButton[2] = GUICtrlCreateButton("Button 3", 0, 60, 150)
$aButton[3] = GUICtrlCreateButton("Button 4", 0, 90, 150)
$aButton[4] = GUICtrlCreateButton("Exit", 0, 120, 150)
GUISetState(@SW_SHOW)

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

$pos = WinGetPos($gui)
_GuiHole($gui, 0, 0, 150, 150)

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case $aButton[4]
ExitLoop
Case $aButton[0]
MsgBox(0, '', 'Button1 geklickt')
Case $aButton[1]
MsgBox(0, '', 'Button2 geklickt')
Case $aButton[2]
MsgBox(0, '', 'Button3 geklickt')
Case $aButton[3]
MsgBox(0, '', 'Button4 geklickt')
EndSwitch
WEnd

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

Func _GuiHole($h_win, $i_x, $i_y, $i_sizew, $i_sizeh)
Local $outer_rgn, $inner_rgn, $combined_rgn
$combined_rgn = _WinAPI_CreateRectRgn(0, 0, 0, 0)
_WinAPI_DeleteObject($outer_rgn)
_WinAPI_DeleteObject($inner_rgn)
_AddCtrlRegion($combined_rgn, $aButton)
_WinAPI_SetWindowRgn($h_win, $combined_rgn)
EndFunc ;==>_GuiHole

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

Func _AddCtrlRegion($full_rgn, $ctrl_id)
Local $ctrl_pos, $ctrl_rgn
If IsArray($ctrl_id) Then
For $i = 0 To UBound($ctrl_id) -1
$ctrl_pos = ControlGetPos($gui, "", $ctrl_id[$i])
$ctrl_rgn = _WinAPI_CreateRectRgn($ctrl_pos[0], $ctrl_pos[1], $ctrl_pos[0] + $ctrl_pos[2], $ctrl_pos[1] + $ctrl_pos[3])
_WinAPI_CombineRgn($full_rgn, $full_rgn, $ctrl_rgn, $RGN_OR)
_WinAPI_DeleteObject($ctrl_rgn)
Next
Else
$ctrl_pos = ControlGetPos($gui, "", $ctrl_id)
$ctrl_rgn = _WinAPI_CreateRectRgn($ctrl_pos[0], $ctrl_pos[1], $ctrl_pos[0] + $ctrl_pos[2], $ctrl_pos[1] + $ctrl_pos[3])
_WinAPI_CombineRgn($full_rgn, $full_rgn, $ctrl_rgn, $RGN_OR)
_WinAPI_DeleteObject($ctrl_rgn)
EndIf
EndFunc ;==>_AddCtrlRegion

[/autoit]

Greek

Kann man doch ganz leicht ausprobieren:

[autoit]

$stamp=TimerInit()
Sleep ( 10 )
MsgBox ( 0, "", TimerDiff( $stamp ) )

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

$stamp=TimerInit()
Sleep ( 5 )
MsgBox ( 0, "", TimerDiff( $stamp ) )

[/autoit]

Unter 10 Kommt es bei mir nicht, also Sleep ( 10 ) ist Minimum.

Greek

Ich konnte mein Script trotzdem Decomplieren

Hab ichs falsch gemacht, kannste mir mal ein so Compliertes Script geben?

Greek

Nochma neue Version, Fehler behoben.

Greek

Ja kann man in der Echten Shoutbox auch, aber denk mal peethebee meint das dann viel Unsinn gewispert wird...

Greek

Zitat von oliverh

bei mir gehts nicht... beim drücken von space öffnet sich dann n gui aber ohne linie

Wenn man es auf @Desktopwidth und @DesktopHeight macht geht es und man sieht auch was er meint.

Spoiler anzeigen

[autoit]

#Include <Misc.au3>
#include <Array.au3>
#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>
Opt("MouseCoordMode",2)

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

While 1
If _IsPressed(1) Then
$pos=MouseGetPos()
FileWrite("Test.txt",$pos[0]&" "&$pos[1]&" ")
EndIf
If _IsPressed(20) Then ExitLoop
WEnd

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

$fiel=FileRead("Test.txt")
$strg=StringSplit($fiel," ")
;~ _ArrayDisplay($strg)
FileDelete("Test.txt")

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

$hGUI = GUICreate("Test", @DesktopWidth, @DesktopHeight)
$hWnd = WinGetHandle("Test")
GUISetState()
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
$hPen = _GDIPlus_PenCreate()
For $i=1 To $strg[0]-1 Step 2
_GDIPlus_GraphicsDrawLine ($hGraphic, $strg[$i], $strg[$i+1],$strg[$i]+1, $strg[$i+1]+1, $hPen)
Next
GUISetState()

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

While 1
$msg=GUIGetMsg()
If $msg=-3 Then Exit
WEnd

[/autoit]

Greek

Hi ChaosKeks,

Danke für deine Ideen und Fehlermeldungen!

Werde dran Arbeiten mit prog@ndy.

Aber noch zu Flüstern:

Peethebee will nicht das man mit dem Chat Flüstern kann, deswegen ist es draußen. ( Vieleicht kann man ihn doch noch überreden?! )

Greek

Großes Update !

Neues:

- Ihr musst euch nur ein einziges mal einloggen! Beim nächsten Start einfach warten bis er fertig geladen hat und ihr seit eingelogt ( Also nicht ausloggen! ).
- Online Liste.
- Chat speichern.
- Mehrere Zeilen schreiben. ( Abgesendet wird nun mit Shift + Enter )

Viel Spaß damit

Greek & Prog@ndy

Beiträge von Greek

Sonderzeichen

Mumble

GDI+ löschen

Windows Animationen nutzen

Router mit AutoIt ansteuern (Local)

Windows Animationen nutzen

Windows Animationen nutzen

Gdi+ Clone/Save

Router reconnect über Telnet

Router reconnect über Telnet

Router reconnect über Telnet

Signatur Problem :D

Sichtbare Buttons auf Unsichtbarem GUI

Sleep abbrechen

AutoIt *exe Gut Schützen [Tutorial]

Shoutbox Chat

Shoutbox Chat

Maus abmalen

Shoutbox Chat

Shoutbox Chat