Beiträge von Rodny_le_lude

Rodny_le_lude

für alle Joypads,Lenkräder,sonstige eingabegeräte !!!

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

;655535

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

$Form1 = GUICreate("Xbox 360 Controller", 300, 400)
$X0 = GUICtrlCreateLabel('', 10, 10, 30, 20)
$S0 = GUICtrlCreateSlider(40, 05, 250, 20, 0x0010)
$X1 = GUICtrlCreateLabel('', 10, 30, 30, 20)
$S1 = GUICtrlCreateSlider(40, 25, 250, 20, 0x0010)
$X2 = GUICtrlCreateLabel('', 10, 50, 30, 20)
$S2 = GUICtrlCreateSlider(40, 45, 250, 20, 0x0010)
$X3 = GUICtrlCreateLabel('', 10, 70, 30, 20)
$S3 = GUICtrlCreateSlider(40, 65, 250, 20, 0x0010)
$X4 = GUICtrlCreateLabel('', 10, 90, 30, 20)
$S4 = GUICtrlCreateSlider(40, 85, 250, 20, 0x0010)
$X5 = GUICtrlCreateLabel('', 10, 110, 30, 20)
$X6 = GUICtrlCreateLabel('', 10, 130, 30, 20)
$X7 = GUICtrlCreateLabel('', 10, 150, 30, 20)
GUICtrlCreateLabel('Buttons Pressed:', 10, 170, 280, 20)
$XB = GUICtrlCreateLabel('', 10, 190, 280, 20)
GUISetState(@SW_SHOW)

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

$joy = _JoyInit()

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

While 1
Sleep(10)
$msg = GUIGetMsg()
$j = _GetJoy($joy, 0)
If $msg = $GUI_EVENT_CLOSE Then ExitLoop

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

;Get Array values from _GetJoy return and display
For $a = 0 To 7
$control = Execute('$X' & $a)
If GUICtrlRead($control) <> $j[$a] Then GUICtrlSetData($control, $j[$a])
Next

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

;Get buttons pressed and display
$Spressed = GetPressed($j[7])
If GUICtrlRead($XB) <> $Spressed Then GUICtrlSetData($XB, $Spressed)

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

;Set sliders to correct position
For $a = 0 To 4
SetSliders($j[$a], $a)
Next
WEnd

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

Func GetPressed($Val)
$SButtons = ''
If BitAND($Val, 1) Then $SButtons &= '(A)'
If BitAND($Val, 2) Then $SButtons &= '(B)'
If BitAND($Val, 4) Then $SButtons &= '(X)'
If BitAND($Val, Then $SButtons &= '(Y)'
If BitAND($Val, 16) Then $SButtons &= '(LB)'
If BitAND($Val, 32) Then $SButtons &= '(RB)'
If BitAND($Val, 64) Then $SButtons &= '(Back)'
If BitAND($Val, 128) Then $SButtons &= '(Start)'
If BitAND($Val, 256) Then $SButtons &= '(LS)'
If BitAND($Val, 512) Then $SButtons &= '(RS)'
Return $SButtons
EndFunc ;==>GetPressed

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

Func SetSliders($Val, $Slide)
$control = Execute('$S' & $Slide)
If $Val = 65535 Then
GUICtrlSetData($control, 0)
ElseIf $Val = 0 Then
GUICtrlSetData($control, 100)
Else
GUICtrlSetData($control, ((65535 - $Val) / 65535) * 100)
EndIf
EndFunc ;==>SetSliders

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

;======================================
; _JoyInit()
;======================================
Func _JoyInit()
Local $joy
Global $JOYINFOEX_struct = "dword[13]"
$joy = DllStructCreate($JOYINFOEX_struct)
If @error Then Return 0
DllStructSetData($joy, 1, DllStructGetSize($joy), 1);dwSize = sizeof(struct)
DllStructSetData($joy, 1, 255, 2) ;dwFlags = GetAll
Return $joy
EndFunc ;==>_JoyInit

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

;======================================
; _GetJoy($lpJoy,$iJoy)
; $lpJoy Return from _JoyInit()
; $iJoy Joystick # 0-15
; Return Array containing X-Pos, Y-Pos, Z-Pos, R-Pos, U-Pos, V-Pos,POV
; Buttons down
;
; *POV This is a digital game pad, not analog Joystick
; 65535 = Not pressed
; 0 = U
; 4500 = UR
; 9000 = R
; Goes around clockwise increasing 4500 for each position
;======================================
Func _GetJoy($lpJoy, $iJoy)
Local $coor, $ret
Dim $coor[8]
DllCall("Winmm.dll", "int", "joyGetPosEx", _
"int", $iJoy, _
"ptr", DllStructGetPtr($lpJoy))
If Not @error Then
$coor[0] = DllStructGetData($lpJoy, 1, 3)
$coor[1] = DllStructGetData($lpJoy, 1, 4)
$coor[2] = DllStructGetData($lpJoy, 1, 5)
$coor[3] = DllStructGetData($lpJoy, 1, 6)
$coor[4] = DllStructGetData($lpJoy, 1, 7)
$coor[5] = DllStructGetData($lpJoy, 1,
$coor[6] = DllStructGetData($lpJoy, 1, 11)
$coor[7] = DllStructGetData($lpJoy, 1, 9)
EndIf
Return $coor
EndFunc ;==>_GetJoy

[/autoit]

Rodny_le_lude

Also das beste game in Autoit ist bisher "super Mario" von Eukalyptus.
Ich habs mal hochgeladen ink. Source

http://freakshare.com/files/fey3uadx/MARIO.rar

Rodny_le_lude

versuch das Script mal funkt 100%

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

;655535

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

$Form1 = GUICreate("Xbox 360 Controller", 300, 400)
$X0 = GUICtrlCreateLabel('', 10, 10, 30, 20)
$S0 = GUICtrlCreateSlider(40, 05, 250, 20, 0x0010)
$X1 = GUICtrlCreateLabel('', 10, 30, 30, 20)
$S1 = GUICtrlCreateSlider(40, 25, 250, 20, 0x0010)
$X2 = GUICtrlCreateLabel('', 10, 50, 30, 20)
$S2 = GUICtrlCreateSlider(40, 45, 250, 20, 0x0010)
$X3 = GUICtrlCreateLabel('', 10, 70, 30, 20)
$S3 = GUICtrlCreateSlider(40, 65, 250, 20, 0x0010)
$X4 = GUICtrlCreateLabel('', 10, 90, 30, 20)
$S4 = GUICtrlCreateSlider(40, 85, 250, 20, 0x0010)
$X5 = GUICtrlCreateLabel('', 10, 110, 30, 20)
$X6 = GUICtrlCreateLabel('', 10, 130, 30, 20)
$X7 = GUICtrlCreateLabel('', 10, 150, 30, 20)
GUICtrlCreateLabel('Buttons Pressed:', 10, 170, 280, 20)
$XB = GUICtrlCreateLabel('', 10, 190, 280, 20)
GUISetState(@SW_SHOW)

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

$joy = _JoyInit()

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

While 1
Sleep(10)
$msg = GUIGetMsg()
$j = _GetJoy($joy, 0)
If $msg = $GUI_EVENT_CLOSE Then ExitLoop

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

;Get Array values from _GetJoy return and display
For $a = 0 To 7
$control = Execute('$X' & $a)
If GUICtrlRead($control) <> $j[$a] Then GUICtrlSetData($control, $j[$a])
Next

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

;Get buttons pressed and display
$Spressed = GetPressed($j[7])
If GUICtrlRead($XB) <> $Spressed Then GUICtrlSetData($XB, $Spressed)

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

;Set sliders to correct position
For $a = 0 To 4
SetSliders($j[$a], $a)
Next
WEnd

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

Func GetPressed($Val)
$SButtons = ''
If BitAND($Val, 1) Then $SButtons &= '(A)'
If BitAND($Val, 2) Then $SButtons &= '(B)'
If BitAND($Val, 4) Then $SButtons &= '(X)'
If BitAND($Val, Then $SButtons &= '(Y)'
If BitAND($Val, 16) Then $SButtons &= '(LB)'
If BitAND($Val, 32) Then $SButtons &= '(RB)'
If BitAND($Val, 64) Then $SButtons &= '(Back)'
If BitAND($Val, 128) Then $SButtons &= '(Start)'
If BitAND($Val, 256) Then $SButtons &= '(LS)'
If BitAND($Val, 512) Then $SButtons &= '(RS)'
Return $SButtons
EndFunc ;==>GetPressed

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

Func SetSliders($Val, $Slide)
$control = Execute('$S' & $Slide)
If $Val = 65535 Then
GUICtrlSetData($control, 0)
ElseIf $Val = 0 Then
GUICtrlSetData($control, 100)
Else
GUICtrlSetData($control, ((65535 - $Val) / 65535) * 100)
EndIf
EndFunc ;==>SetSliders

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

;======================================
; _JoyInit()
;======================================
Func _JoyInit()
Local $joy
Global $JOYINFOEX_struct = "dword[13]"
$joy = DllStructCreate($JOYINFOEX_struct)
If @error Then Return 0
DllStructSetData($joy, 1, DllStructGetSize($joy), 1);dwSize = sizeof(struct)
DllStructSetData($joy, 1, 255, 2) ;dwFlags = GetAll
Return $joy
EndFunc ;==>_JoyInit

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

;======================================
; _GetJoy($lpJoy,$iJoy)
; $lpJoy Return from _JoyInit()
; $iJoy Joystick # 0-15
; Return Array containing X-Pos, Y-Pos, Z-Pos, R-Pos, U-Pos, V-Pos,POV
; Buttons down
;
; *POV This is a digital game pad, not analog Joystick
; 65535 = Not pressed
; 0 = U
; 4500 = UR
; 9000 = R
; Goes around clockwise increasing 4500 for each position
;======================================
Func _GetJoy($lpJoy, $iJoy)
Local $coor, $ret
Dim $coor[8]
DllCall("Winmm.dll", "int", "joyGetPosEx", _
"int", $iJoy, _
"ptr", DllStructGetPtr($lpJoy))
If Not @error Then
$coor[0] = DllStructGetData($lpJoy, 1, 3)
$coor[1] = DllStructGetData($lpJoy, 1, 4)
$coor[2] = DllStructGetData($lpJoy, 1, 5)
$coor[3] = DllStructGetData($lpJoy, 1, 6)
$coor[4] = DllStructGetData($lpJoy, 1, 7)
$coor[5] = DllStructGetData($lpJoy, 1,
$coor[6] = DllStructGetData($lpJoy, 1, 11)
$coor[7] = DllStructGetData($lpJoy, 1, 9)
EndIf
Return $coor
EndFunc ;==>_GetJoy

[/autoit]

Rodny_le_lude

Hier haste n Plugin das sollte mit jedem Controller funktionieren der unter Windows erkannt wird, bei mir funkts mit meinem Joypad u. Joystick.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

Local $joy,$coor,$h,$s,$msg

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

$joy = _JoyInit()

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

GUICreate("Joystick Test",300,300)
$h= GuiCtrlCreatelabel("",10,10,290,290)
GUISetState()

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

while 1
$msg = GUIGetMSG()
$coor = _GetJoy($joy,0)
$s = "Joystick(0):" & @CRLF & _
"X: " & $coor[0] & @CRLF & _
"Y: " & $coor[1] & @CRLF & _
"Z: " & $coor[2] & @CRLF & _
"R: " & $coor[3] & @CRLF & _
"U: " & $coor[4] & @CRLF & _
"V: " & $coor[5] & @CRLF & _
"POV: " & $coor[6] & @CRLF & _
"Buttons: " & $coor[7]
GUICtrlSetData($h,$s,1)
sleep(10)
if $msg = $GUI_EVENT_CLOSE Then Exitloop
WEnd

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

_JoyClose($joy)

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

;======================================
; _JoyInit()
;======================================
Func _JoyInit()
Local $joy
Global $JOYINFOEX_struct = "dword[13]"

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

$joy = DllStructCreate($JOYINFOEX_struct)
if @error Then Return 0
DllStructSet($joy,1,DllStructSize($joy),1);dwSize = sizeof(struct)
DllStructSet($joy,1,255,2) ;dwFlags = GetAll
return $joy
EndFunc

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

;======================================
; _GetJoy($lpJoy,$iJoy)
; $lpJoy Return from _JoyInit()
; $iJoy Joystick # 0-15
; Return Array containing X-Pos, Y-Pos, Z-Pos, R-Pos, U-Pos, V-Pos,POV
; Buttons down
;
; *POV This is a digital game pad, not analog joystick
; 65535 = Not pressed
; 0 = U
; 4500 = UR
; 9000 = R
; Goes around clockwise increasing 4500 for each position
;======================================
Func _GetJoy($lpJoy,$iJoy)
Local $coor,$ret

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

Dim $coor[8]
DllCall("Winmm.dll","int","joyGetPosEx",_
"int",$iJoy,_
"ptr",DllStructPtr($lpJoy))

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

if Not @error Then
$coor[0] = DllStructGet($lpJoy,1,3)
$coor[1] = DllStructGet($lpJoy,1,4)
$coor[2] = DllStructGet($lpJoy,1,5)
$coor[3] = DllStructGet($lpJoy,1,6)
$coor[4] = DllStructGet($lpJoy,1,7)
$coor[5] = DllStructGet($lpJoy,1,8)
$coor[6] = DllStructGet($lpJoy,1,11)
$coor[7] = DllStructGet($lpJoy,1,9)
EndIf

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

return $coor
EndFunc

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

;======================================
; _JoyClose($lpJoy)
; Free the memory allocated for the joystick struct
;======================================
Func _JoyClose($lpJoy)
DllStructFree($lpJoy)
EndFunc

[/autoit]

Rodny_le_lude

Also bei mir klappt alles bestens

Spoiler anzeigen

[autoit]

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

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

$hGUI = GUICreate("Master", 300, 400)
GUISetBkColor(0xFF0000)
GUISetState()
; set glass to $hGUI

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

$checkDWM = _Vista_ICE()

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

If $checkDWM <> 0 Then
_Vista_ApplyGlass($hGUI)
EndIf

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

$hControlGUI = GUICreate("Controls", 300, 400, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $hGUI)
GUISetBkColor(0xABCDEF)
$hallo=GUICtrlCreateButton("Test-Button",20,20)
_WinAPI_SetLayeredWindowAttributes($hControlGUI, 0xABCDEF)
GUISetState()

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

While 1
$msg=GUIGetMsg()
Select
Case $msg=$GUI_EVENT_CLOSE
Exit
Case $msg = $hallo
MsgBox(0,"","hallo")
EndSelect
WEnd

[/autoit]

Rodny_le_lude

Update

Version 1.2r (15.05.2010)
-Autorestart,Hotkeyauswahl,Sprachwahl
-Hotkeyeditor Verbessert
-kleine Bugs behoben
-Tastenkürzel werden jetzt Angezeigt (infomenü)
-RBS Audiofiles werden jetzt unterstützt
-Opendialog AllFiles steht jetzt zur Auswahl

Version 1.1r (20.03.2010)
+Radio item (editable)

Updated
-HotkeyEditor
-TrayToolTip (zeigt jetzt beim Streamen Stream statt index an)
-Starke Performance verbesserung (Speicherbedarf liegt jetzt auf einem sehr niedrigen Level ;-P)
-info bereich (Tastenkürzel werden jetzt Angezeigt)
-devicemanager update (es ist kein Neustart mehr nötig)

Version 1.0b (12.03.2010)
First release

Rodny_le_lude

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <array.au3>
#Region ### START Koda GUI section ### Form=e:\meine programme\test\auto reg\form1.kxf
$Form1_1 = GUICreate("Auto-Reg", 633, 454, 192, 114)
$Radio1 = GUICtrlCreateRadio("Radio1", 16, 48, 17, 25)
GUICtrlSetColor(-1, 0xFFFFE1)
$Label1 = GUICtrlCreateLabel("S/ EP", 48, 46, 120, 34)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetColor(-1, 0x0A246A)
$Radio2 = GUICtrlCreateRadio("Radio2", 16, 120, 17, 25)
GUICtrlSetColor(-1, 0xFFFFE1)
$Label2 = GUICtrlCreateLabel("C", 48, 118, 120, 34)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetColor(-1, 0x0A246A)
$Radio3 = GUICtrlCreateRadio("Radio3", 16, 192, 17, 25)
GUICtrlSetColor(-1, 0xFFFFE1)
$Label3 = GUICtrlCreateLabel("AD", 49, 191, 120, 34)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetColor(-1, 0x0A246A)

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

$x=200
$y=48
Global $array_button[9]
For $i=0 to 8
$array_button[$i]=GUICtrlCreateButton(Chr(65+$i),$x,$y)
GUICtrlSetState(-1, $GUI_hide)
$x=$x+50
If $x=350 Then
$x=200
$y=$y+72
EndIf
Next
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Radio1
le_checker(1)
Case $Radio2
le_checker(2)
Case $Radio3
le_checker(3)
Case $array_button[0] to $array_button[8]
MsgBox(0,"","Es wurde Button" &$nMsg& " gedrückt")
EndSwitch
WEnd

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

Func le_checker($input)
For $i=0 To UBound($array_button)-1
GUIctrlSetState($array_button[$i],$GUI_hide)
Next
For $i=$input*3-3 To $input*3-1
GUIctrlSetState($array_button[$i],$GUI_show)
Next
EndFunc

[/autoit]

Rodny_le_lude

warum machst du es nicht einfach so

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <array.au3>
#Region ### START Koda GUI section ### Form=e:\meine programme\test\auto reg\form1.kxf
$Form1_1 = GUICreate("Auto-Reg", 633, 454, 192, 114)
$Radio1 = GUICtrlCreateRadio("Radio1", 16, 48, 17, 25)
GUICtrlSetColor(-1, 0xFFFFE1)
$Label1 = GUICtrlCreateLabel("S/ EP", 48, 46, 120, 34)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetColor(-1, 0x0A246A)
$Radio2 = GUICtrlCreateRadio("Radio2", 16, 120, 17, 25)
GUICtrlSetColor(-1, 0xFFFFE1)
$Label2 = GUICtrlCreateLabel("C", 48, 118, 120, 34)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetColor(-1, 0x0A246A)
$Radio3 = GUICtrlCreateRadio("Radio3", 16, 192, 17, 25)
GUICtrlSetColor(-1, 0xFFFFE1)
$Label3 = GUICtrlCreateLabel("AD", 49, 191, 120, 34)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetColor(-1, 0x0A246A)

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

$x=200
$y=48
Global $array_button[9]
For $i=0 to 8
$array_button[$i]=GUICtrlCreateButton(Chr(65+$i),$x,$y)
GUICtrlSetState(-1, $GUI_hide)
$x=$x+50
If $x=350 Then
$x=200
$y=$y+72
EndIf
Next
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Radio1
le_checker(1)
Case $Radio2
le_checker(2)
Case $Radio3
le_checker(3)
EndSwitch
WEnd

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

Func le_checker($input)
For $i=0 To UBound($array_button)-1
GUIctrlSetState($array_button[$i],$GUI_hide)
Next
For $i=$input*3-3 To $input*3-1
GUIctrlSetState($array_button[$i],$GUI_show)
Next
EndFunc

[/autoit]

Rodny_le_lude

Zitat von Pinguin94

Es heißt Ergebnis nicht Ergebniss^^

Ja ja , ich bin keine grosse Leuchte in der "die " Grammatik :wacko:
Ah ja Update das letzte

Spoiler anzeigen

[autoit]

#include <array.au3>
#include <string.au3>
#include <inet.au3>

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

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

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

$gui_GoogleKurs = GUICreate("GoogleKurs", 500, 103, 431, 257)
$kurs_input = GUICtrlCreateCombo("", 8, 8, 97, 25)
GUICtrlSetData(-1,"GBP|EURO|USD|yen","EURO")
$kurs_output = GUICtrlCreateCombo("", 128, 8, 97, 25)
GUICtrlSetData(-1,"GBP|EURO|USD|yen","USD")
$mony_input = GUICtrlCreateInput("1", 8, 32, 97, 21,BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$btn_start = GUICtrlCreateButton("Start", 128, 32, 97, 21, $WS_GROUP)
$mony_output = GUICtrlCreateLabel("Ergebnis: create by Rodny_le_Lude", 8, 72, 480, 17)
GUICtrlSetColor(-1, 0x000000)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btn_start

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

get_kurs(GUICtrlRead($kurs_input),GUICtrlRead($kurs_output),GUICtrlRead($mony_input))
EndSwitch
WEnd

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

Func get_kurs($k_inp,$k_out,$wert)
$update="http://www.google.de/search?hl=de&q="&$wert&$k_inp&"+in+"&$k_out&"&aq=f&aqi=&aql=$op=&gs_rfai="
$read=_INetGetSource($update)
$str=StringRegExp($read,'138%"[^"]+\',3)
If IsArray($str) then
$str=_StringBetween($str[0],"","")
_ArrayDisplay($str)
GUICtrlSetData($mony_output,"Ergebniss:"&$str[0])
Else
GUICtrlSetData($mony_output,"Ergebnis:kann nicht ermittelt werden")
EndIf
EndFunc

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

Rodny_le_lude

danke

update

Spoiler anzeigen

[autoit]

#include <array.au3>
#include <string.au3>
#include <inet.au3>

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

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

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

$gui_GoogleKurs = GUICreate("GoogleKurs", 231, 103, 431, 257)
$kurs_input = GUICtrlCreateCombo("", 8, 8, 97, 25)
GUICtrlSetData(-1,"GBP|EURO|USD|yen","EURO")
$kurs_output = GUICtrlCreateCombo("", 128, 8, 97, 25)
GUICtrlSetData(-1,"GBP|EURO|USD|yen","USD")
$mony_input = GUICtrlCreateInput("1", 8, 32, 97, 21,BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$btn_start = GUICtrlCreateButton("Start", 128, 32, 97, 21, $WS_GROUP)
$mony_output = GUICtrlCreateLabel("Ergebniss: create by Rodny_le_Lude", 8, 72, 213, 17)
GUICtrlSetColor(-1, 0x000000)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btn_start

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

get_kurs(GUICtrlRead($kurs_input),GUICtrlRead($kurs_output),GUICtrlRead($mony_input))
EndSwitch
WEnd

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

Func get_kurs($k_inp,$k_out,$wert)
$update="http://www.google.de/search?hl=de&q="&$wert&$k_inp&"+in+"&$k_out&"&aq=f&aqi=&aql=$op=&gs_rfai="
$read=_INetGetSource($update)
$str=StringRegExp($read,'138%"[^"]+\',3)
If IsArray($str) then
$str=_StringBetween($str[0],"","")
GUICtrlSetData($mony_output,"Ergebniss:"&$str[0])
Else
GUICtrlSetData($mony_output,"Ergebniss:kann nicht ermittelt werden")
EndIf
EndFunc

[/autoit]

Rodny_le_lude

Da ich ab und zu auf Amazon.co.uk einkaufe brauche ich immer den Aktuellen Wechselkurs deshalb habe ich mal ein kleines Script gebastelt was automatisch den
neusten Kurs ermittelt

Spoiler anzeigen

[autoit]

#include <array.au3>
#include <string.au3>
#include <inet.au3>

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

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

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

$gui_GoogleKurs = GUICreate("GoogleKurs", 231, 103, 431, 257)
$kurs_input = GUICtrlCreateCombo("", 8, 8, 97, 25)
GUICtrlSetData(-1,"GBP|EURO|USD|yen","EURO")
$kurs_output = GUICtrlCreateCombo("", 128, 8, 97, 25)
GUICtrlSetData(-1,"GBP|EURO|USD|yen","USD")
$mony_input = GUICtrlCreateInput("1", 8, 32, 97, 21,BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$btn_start = GUICtrlCreateButton("Start", 128, 32, 97, 21, $WS_GROUP)
$mony_output = GUICtrlCreateLabel("Ergebniss: create by Rodny_le_Lude", 8, 72, 213, 17)
GUICtrlSetColor(-1, 0x000000)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btn_start

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

get_kurs(GUICtrlRead($kurs_input),GUICtrlRead($kurs_output),GUICtrlRead($mony_input))
EndSwitch
WEnd

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

Func get_kurs($k_inp,$k_out,$wert)
$update="http://www.google.de/search?hl=de&q="&$wert&$k_inp&"+in+"&$k_out&"&aq=f&aqi=&aql=$op=&gs_rfai="
$read=_INetGetSource($update)
$str=StringRegExp($read,'138%"[^"]+\',3)
If IsArray($str) then
$str=_StringBetween($str[0],"","")
$str=StringRegExp($str[0],"\d*[,.]*\d+",3)
GUICtrlSetData($mony_output,"Ergebniss:"&$wert&" "&$k_inp&"="&$str[1]&" "&$k_out)
Else
GUICtrlSetData($mony_output,"Ergebniss:kann nicht ermittelt werden")
EndIf
EndFunc

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

Rodny_le_lude

ich habs selbst rausgefunden "\d?[,]*\d+"

Rodny_le_lude

Hi Leute brauch mal wieder hilfe zu StringRegExp so.
Also ich hab ein txt file bsp inhalt: (asd1 dsad 121832asdd 1,83273) jetzt möchte ich alle Zahlen (zusammenstehenden) rausfiltern StringRegexp($var,"\b\d+\b",3) das Problem ist das ich die Gleitkommazahl nicht als ganzes bekomme.
Habs schon mit [,] am Anfang versucht dan wird der String aber gesplitet.

das array soll danach so aussehen:
1
121832
1,83273

Rodny_le_lude

Werbung gibt es am Tag nur einmal (für den ersten der die Seite aufruft) man kann sie aber auch durch Wirths Abestellen, das ist
das interne Zahlungsmittel bei cwcity das bekommt mann wenn man in deren Forum postet oder jemanden Hilft bei seinem Website Problemchen.
Ausserdem ist die Anmeldung voll Anonym (Nick u. Ps) reicht.

Rodny_le_lude

@Ubuntu
Wenn du willst helf ich dir ein Joomla cms aufzusetzen und es einzurichten (Module,Templates,Plugins,Bereiche,kategorien,usw).
Für free Webhosting würde ich dir cwsurf bzw cwcity empfehlen , hab schon so einige durch und muss sagen die sind die besten im kostenlosen
Segment. Du kannst aber auch für ein parr kröten Webspace plus Domain bei netcup kaufen.

Rodny_le_lude

Hi Leute
Da unter Windows 7 bei einer Verknüpfung immer so hässliche Pfeile dranhängen habe ich ein kleines Optionsscript geschrieben mit dem man
sie Tranzparent bzw austauschen kann. das ganze kann natürlich auch rückgängig gemacht werden.

Spoiler anzeigen

[autoit]

#NoTrayIcon
#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
If Not @OSVersion = "WIN_7" Then
MsgBox(48,"Inkompatiebele Version","Dieses Programm ist nur für Windows 7 geeignet, und wird daher beendet")
Exit
EndIf

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

$start="start"
$restore="restore"
$re_ico=@ScriptDir&"\1.ico"

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

$VHFW7_gui = GUICreate("VHFW7", 526, 190, 280, 223)
GUISetBkColor(0xC0C0C0)
$btn = GUICtrlCreateButton("start", 160, 96, 185, 41, $WS_GROUP)
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell icons","29") <> "" Then GUICtrlSetData($btn,$restore)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$xy_1 = GUICtrlCreateLabel("Verknüpfungspfeil Hider for Windows 7", 32, 16, 457, 33)
GUICtrlSetFont(-1, 18, 800, 0, "Arial")
GUISetState(@SW_SHOW)

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

While 1
$msg=GUIGetMsg()
Select
Case $msg=$GUI_EVENT_CLOSE
Exit
Case $msg=$btn
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell icons","29") = "" Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell icons","29","REG_SZ",$re_ico)
GUICtrlSetData($btn,$restore)
win_restart()
Else
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell icons","29")
GUICtrlSetData($btn,$start)
win_restart()
EndIf
EndSelect
WEnd

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

Func win_restart()
If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(36,"Neustart erforderlich","Damit die Änderung wirksam wird muss ein Neustart durchgeführt werden." & @CRLF & "Soll Windows jetzt neu gestartet werden?")
Select
Case $iMsgBoxAnswer = 6
Shutdown(0)
Case $iMsgBoxAnswer = 7
Return 0
EndSelect
EndFunc

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

unter $re_ico könnt ihr euer tranzparentes icon o. ein anderes pfeil icon einsetzen

Rodny_le_lude

ganz nett aber du solltest noch dazuschreiben das man die Zeile
#include <Sachen-UDF.au3> Löschen muss um es auzuführen.

mfg Rodny

Rodny_le_lude

klick mich

Rodny_le_lude

Richtige Profis Arbeiten nur mit Photoshop , da kommt GIMP bei weitem nicht ran.
Was ich noch empfehlen kann ist Paint.net, nettes kleines Grafikprogramm mit user difinierte addons.

Rodny_le_lude

hi Leute ich hab auf die schnelle mal einen Radiocrawler gebastelt.
Soll später mal als addon für meinen PFT player dienen, aber rein Theoretisch kann man ihn auch als Player benutzen (Play u. Stopbutton vorhanden).
[Blockierte Grafik: http://img89.imageshack.us/img89/6453/20106656.th.jpg][Blockierte Grafik: http://img641.imageshack.us/img641/9774/39416686.th.jpg]

Das ganze ist uncompiliert also nur Script.
ps.:Main_rrm.au3 ist das Hauptscript
falls jemand die Fehlermeldung (40,41,20) bekommt liegt es an der Firewalleinstellung

Download

Beiträge von Rodny_le_lude

Gamepad Tasten einlesen

Spiel erstellen

Gampad tastendruck auslessen

Gampad tastendruck auslessen

GUI Transparent machen

PFT Player (PlayFromTray)

Koda FormDesigner verzweifelung

Koda FormDesigner verzweifelung

Google Währungsrechner

Google Währungsrechner

Google Währungsrechner

StringRegExp floating point

StringRegExp floating point

Website

Website

Verknüpfungspfeil Hider Win_7

Würfeln in GDI+

kann man irgendwie dds datein öfnen

Grafiken

Radio crawler