Beiträge von funkey

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=1.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Description=Spielt einzelne Songs ab.
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Burak Keskin
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#AutoIt3Wrapper_Res_Field=E-Mail|[email='burak.keskin@arcor.de'][/email]
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/sf 1 /sv 1
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.1.1 (beta)
Author: myName

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <Inet.au3>

$Form1 = GUICreate("Last.FM Player", 342, 331)
GUIRegisterMsg($WM_ACTIVATE, "_ReDraw")
$Label1 = GUICtrlCreateLabel("Interpret:", 8, 8, 46, 17)
$Input1 = GUICtrlCreateInput("Rise Against", 64, 8, 121, 21)
$Label2 = GUICtrlCreateLabel("Song:", 8, 40, 32, 17)
$Input2 = GUICtrlCreateInput("Tip the Scales", 64, 40, 121, 21)
$Button1 = GUICtrlCreateButton("Ok", 208, 40, 75, 25)

GUICreate("", 342, 261, 0, 70, $WS_CHILD, -1, $Form1)

$oIE = ObjCreate("Shell.Explorer.2")
$GUIActiveX = GUICtrlCreateObj($oIE, -10, -15, 342, 261)

;~ $oIE.document.body.style.border = "0px"
;~ $oIE.document.body.scroll = "no"

$oIE.navigate("http://cdn.last.fm/webclient/s12n/s/49/lfmPlayer.swf")

GUISetState()

GUISetState(@SW_SHOW, $Form1)

_user32_RedrawWindow($Form1, BitOR($RDW_ERASE, $RDW_INVALIDATE, $RDW_ALLCHILDREN, $RDW_UPDATENOW))

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Anfrage()
Case $Input2
_Anfrage()
EndSwitch
WEnd

Func _Anfrage()
GUICtrlSetState($Button1, $GUI_Disable)
$Fopen = FileOpen(@TempDir & "\Temp.html", 2)

$Interpret = GUICtrlRead($Input1)
$Song = GUICtrlRead($Input2)

$Source = _LastFM_Get_Player_Source(_LastFM_Generate_Url($Interpret, $Song) & "?autostart")
If $Source <> -1 Then
FileWrite($Fopen, $Source)
FileClose($Fopen)
$oIE.navigate(@TempDir & "\Temp.html")
$oIE.document.body.style.border = "0px"
$oIE.document.body.scroll = "no"
Else
MsgBox(0, "Fehler", "Musik nicht gefunden!")
EndIf
GUICtrlSetState($Button1, $GUI_Enable)
EndFunc ;==>_Anfrage

Func _user32_RedrawWindow($hWnd, $Flag)
$Ret = DllCall("User32.dll", "int", "RedrawWindow", "hwnd", $hWnd, "int", 0, "int", 0, "uint", $Flag)
Return $Ret[0]
EndFunc ;==>_user32_RedrawWindow

Func _LastFM_Generate_Url($LF_Interpret, $LF_Song)
Local $LF_URL = "http://www.lastfm.de/music/" & $LF_Interpret & "/_/" & $LF_Song
Return StringReplace($LF_URL, " ", "+")
EndFunc ;==>_LastFM_Generate_Url

Func _LastFM_Get_Player_Source($LF_URL)
Local $LF_Source = _INetGetSource($LF_URL), $Loop
Local $LF_S_Bet = _StringBetween($LF_Source, '<object type="application/x-shockwave-flash"', '</object>')
For $Loop = 0 To UBound($LF_S_Bet)
If IsArray($LF_S_Bet) Then
If StringInStr($LF_S_Bet[$Loop], "lfmPlayer.swf") Then
Return '<object type="application/x-shockwave-flash"' & $LF_S_Bet[$Loop] & '</object>'
EndIf
EndIf
Next
Return -1
EndFunc ;==>_LastFM_Get_Player_Source

Func _ReDraw($hWnd, $Msg, $wParam, $lParam)
_user32_RedrawWindow($Form1, BitOR($RDW_ERASE, $RDW_INVALIDATE, $RDW_ALLCHILDREN, $RDW_UPDATENOW))
EndFunc ;==>_ReDraw

If $CmdLine[0] = 1 Then
If FileExists($CmdLine[1]) Then
If StringRight($CmdLine[1], 4) = '.au3' Or StringRight($CmdLine[1], 4) = '.txt' Then
Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & $CmdLine[1] & '"')
EndIf
EndIf
EndIf

#include <GDIPlus.au3>

Local $iMsg = MsgBox(36, 'Datei auswählen?', 'Möchten Sie eine Datei auswählen?')
Local $picfile = ""
If $iMsg = 6 Then
$picfile = FileOpenDialog('Bild auswählen', @ScriptDir, 'Bilder (*.jpg;*.bmp)')
Local $array = _Scan_Pic($picfile)
Else
Local $array = _Scan_Pic($picfile, 100, 50, 200, 200)
EndIf

Local $string = _Array2dToString($array)
Local $file = @ScriptDir & '\IncludePic\IncludePic' & @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & '.au3'
Local $Funcfile = @ScriptDir & '\IncludePic\IncludePicFunc.au3'
ClipPut('#include "' & $file & '"' & @CRLF)

Local $hFuncfile = FileOpen($Funcfile, 10)
FileWriteLine($hFuncfile, '#include-once')
FileWriteLine($hFuncfile, '')
FileWriteLine($hFuncfile, 'Func _StringToArray2D($sArray)')
FileWriteLine($hFuncfile, ' ;funkey')
FileWriteLine($hFuncfile, ' Local $i_extended, $ar_Row, $ar = StringSplit($sArray, @LF, 2)')
FileWriteLine($hFuncfile, ' StringReplace($ar[0], "|", @LF)')
FileWriteLine($hFuncfile, ' $i_extended = @extended + 1')
FileWriteLine($hFuncfile, ' Local $ar2D[$i_extended][UBound($ar)]')
FileWriteLine($hFuncfile, ' For $i = 0 To UBound($ar2D, 2) - 1')
FileWriteLine($hFuncfile, ' $ar_Row = StringSplit($ar[$i], "|", 2)')
FileWriteLine($hFuncfile, ' For $j = 0 To UBound($ar2D, 1) - 1')
FileWriteLine($hFuncfile, ' $ar2D[$j][$i] = $ar_Row[$j]')
FileWriteLine($hFuncfile, ' Next')
FileWriteLine($hFuncfile, ' Next')
FileWriteLine($hFuncfile, ' Return $ar2D')
FileWriteLine($hFuncfile, 'EndFunc ;==>_StringToArray2D')
FileClose($hFuncfile)

Local $hfile = FileOpen($file, 10)
FileWriteLine($hfile, '#include <' & $Funcfile & '>')
FileWriteLine($hfile, '')
FileWriteLine($hfile, "Local $sPic = ''")
FileWriteLine($hfile, StringTrimRight("$sPic &= '" & StringReplace($string, @LF, "' & @LF" & @LF & "$sPic &= '"), 17))
FileWriteLine($hfile, '')
FileWriteLine($hfile, 'Local $aPic = _StringToArray2D($sPic)')
FileWriteLine($hfile, '')
FileWriteLine($hfile, 'Local $LastCol = ""')
FileWriteLine($hfile, 'For $j = 0 To UBound($aPic, 2) - 1')
FileWriteLine($hfile, ' For $i = 0 To UBound($aPic, 1) - 1')
FileWriteLine($hfile, ' If $aPic[$i][$j] = "" Then ContinueLoop')
FileWriteLine($hfile, ' If $LastCol <> $aPic[$i][$j] Then')
FileWriteLine($hfile, ' GUICtrlSetGraphic(-1, 8, $aPic[$i][$j])')
FileWriteLine($hfile, ' $LastCol = $aPic[$i][$j]')
FileWriteLine($hfile, ' EndIf')
FileWriteLine($hfile, ' GUICtrlSetGraphic(-1, 18, $i, $j)')
FileWriteLine($hfile, ' Next')
FileWriteLine($hfile, 'Next')
FileClose($hfile)

MsgBox(64, 'Fertig', 'Die "IncludePic-Datei" wurde erfolgreich erstellt!' & @CRLF & 'Das Ergebnis wurde in die Zwischenablage kopiert.')

Func _Scan_Pic($sSource, $iPosx = -1, $iPosy = -1, $iWidth = -1, $iHeight = -1)
;funkey
If FileExists($sSource) Then
_GDIPlus_Startup()
Local $IMAGE = _GDIPlus_ImageLoadFromFile($sSource)
$iWidth = _GDIPlus_ImageGetWidth($IMAGE)
$iHeight = _GDIPlus_ImageGetHeight($IMAGE)
_GDIPlus_ImageDispose($IMAGE)

Local $GUI = GUICreate('Bild', $iWidth, $iHeight, -1, -1, 0x80000000)
GUISetBkColor(0xFFFFFF)
Local $PICTURE = GUICtrlCreatePic($sSource, 0, 0, $iWidth, $iHeight)
GUISetState(@SW_SHOW, $GUI)
Local $WinPos = WinGetPos('Bild')
$iPosx = $WinPos[0]
$iPosy = $WinPos[1]
EndIf
Local $aPic[$iWidth][$iHeight]
For $j = 0 To $iHeight - 1
For $i = 0 To $iWidth - 1
$aPic[$i][$j] = PixelGetColor($iPosx + $i, $iPosy + $j)
Next
Next
Return $aPic
EndFunc ;==>_Scan_Pic

Func _Array2dToString($ar2D)
;funkey
Local $sMsg = ""
For $yCounter = 0 To UBound($ar2D, 2) - 1
For $xCounter = 0 To UBound($ar2D) - 1
$sMsg &= $ar2D[$xCounter][$yCounter] & '|'
Next
$sMsg = StringTrimRight($sMsg, 1) & @LF
Next
Return $sMsg
EndFunc ;==>_Array2dToString

GUICreate("Pic-Include-Test", 500, 500)

GUICtrlCreateGraphic(0, 0) ; <--Position des Bildes festlegen
#include "C:\Dokumente und Einstellungen\.....\Desktop\IncludePic\IncludePic20090706130040.au3" ; <---hier den Include aus der Zwischenablage einfügen

GUISetState()

Do
Until GUIGetMsg() = -3

#cs **************************************************************************

Tabsheet flakert

http://www.autoit.de/index.php?page…2785#post102785

#ce **************************************************************************

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $TabSheet2, $TabSheet3

$Form1 = GUICreate("ScriptMaker by Freaky https://autoit.de/www.NosHacks.de", 338, 271, 192, 124)
$Tab1 = GUICtrlCreateTab(0, 0, 337, 241)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Seite 1")
$Label1 = GUICtrlCreateLabel("(C)(R) by Freaky for https://autoit.de/www.NosHacks.de", 136, 216, 190, 17)
$Edit1 = GUICtrlCreateEdit("", 32, 112, 273, 89, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "Edit1")
$Checkbox3 = GUICtrlCreateCheckbox("Sollen Tasten gedrückt werden ?", 13, 47, 177, 17)
$Checkbox1 = GUICtrlCreateCheckbox("Script mit Login", 13, 25, 81, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Soll nach Farben gesucht werden ?", 13, 72, 209, 17)

GUICtrlCreateTabItem("")
$Button1 = GUICtrlCreateButton("Script erstellen", 8, 240, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Ende", 88, 240, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Speichern", 168, 240, 75, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Forum", 248, 240, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

While 1

ToolTip(GUICtrlGetState($TabSheet1), 0, 0)

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetState($Checkbox1, 4)
GUICtrlSetState($Checkbox2, 4)
GUICtrlSetState($Checkbox3, 4)
Case $Checkbox2
If GUICtrlRead($Checkbox2) = 4 Then GUICtrlDelete($TabSheet3)
If GUICtrlRead($Checkbox2) = 1 Then
If GUICtrlGetState($TabSheet3) = -1 Then
_Tab_2()
If GUICtrlGetState($TabSheet1) <> $GUI_SHOW Then
GUICtrlSetState($TabSheet1, $GUI_SHOW)
EndIf
EndIf
EndIf
Case $Checkbox3
If GUICtrlRead($Checkbox3) = 4 Then GUICtrlDelete($TabSheet2)
If GUICtrlRead($Checkbox3) = 1 Then
If GUICtrlGetState($TabSheet2) = -1 Then
_Tab_1()
If GUICtrlGetState($TabSheet1) <> $GUI_SHOW Then
GUICtrlSetState($TabSheet1, $GUI_SHOW)
EndIf
EndIf
EndIf

EndSwitch
WEnd

Func _Tab_1()
$TabSheet2 = GUICtrlCreateTabItem("Tasten")
$Combo1 = GUICtrlCreateCombo("Combo1", 232, 56, 81, 25)
$Label2 = GUICtrlCreateLabel("Wieviele Tasten sollen gerdrückt werden ?", 8, 56, 206, 17)
$Label3 = GUICtrlCreateLabel("1", 8, 112, 10, 17)
$Input1 = GUICtrlCreateInput("Input1", 24, 112, 41, 21)
$Input2 = GUICtrlCreateInput("Input2", 72, 112, 41, 21)
$Input3 = GUICtrlCreateInput("Input2", 72, 136, 41, 21)
$Input4 = GUICtrlCreateInput("Input1", 24, 136, 41, 21)
$Label4 = GUICtrlCreateLabel("1", 8, 136, 10, 17)
$Input5 = GUICtrlCreateInput("Input2", 72, 160, 41, 21)
$Input6 = GUICtrlCreateInput("Input1", 24, 160, 41, 21)
$Label5 = GUICtrlCreateLabel("1", 8, 160, 10, 17)
$Input7 = GUICtrlCreateInput("Input2", 72, 184, 41, 21)
$Input8 = GUICtrlCreateInput("Input1", 24, 184, 41, 21)
$Label6 = GUICtrlCreateLabel("1", 8, 184, 10, 17)
$Input9 = GUICtrlCreateInput("Input2", 72, 208, 41, 21)
$Input10 = GUICtrlCreateInput("Input1", 24, 208, 41, 21)
$Label7 = GUICtrlCreateLabel("1", 8, 208, 10, 17)
$Input11 = GUICtrlCreateInput("Input2", 248, 112, 41, 21)
$Input12 = GUICtrlCreateInput("Input1", 200, 112, 41, 21)
$Label8 = GUICtrlCreateLabel("1", 184, 112, 10, 17)
$Input13 = GUICtrlCreateInput("Input2", 248, 136, 41, 21)
$Input14 = GUICtrlCreateInput("Input1", 200, 136, 41, 21)
$Label9 = GUICtrlCreateLabel("1", 184, 136, 10, 17)
$Input15 = GUICtrlCreateInput("Input2", 248, 160, 41, 21)
$Input16 = GUICtrlCreateInput("Input1", 200, 160, 41, 21)
$Label10 = GUICtrlCreateLabel("1", 184, 160, 10, 17)
$Input17 = GUICtrlCreateInput("Input2", 248, 184, 41, 21)
$Input18 = GUICtrlCreateInput("Input1", 200, 184, 41, 21)
$Label11 = GUICtrlCreateLabel("1", 184, 184, 10, 17)
$Input19 = GUICtrlCreateInput("Input2", 248, 208, 41, 21)
$Input20 = GUICtrlCreateInput("Input1", 200, 208, 41, 21)
$Label12 = GUICtrlCreateLabel("1", 184, 208, 10, 17)
$Label13 = GUICtrlCreateLabel("Taste", 24, 88, 31, 17)
$Label14 = GUICtrlCreateLabel("Zeit", 72, 88, 22, 17)
$Label15 = GUICtrlCreateLabel("Taste", 200, 88, 31, 17)
$Label16 = GUICtrlCreateLabel("Zeit", 248, 88, 22, 17)
EndFunc ;==>_Tab_1

Func _Tab_2()
$TabSheet3 = GUICtrlCreateTabItem("Farben Suche")
$Input = GUICtrlCreateInput("Input20", 32, 88, 73, 21)
$Input21 = GUICtrlCreateInput("Input21", 112, 88, 41, 21)
$Input22 = GUICtrlCreateInput("Input22", 160, 88, 41, 21)
$Label19 = GUICtrlCreateLabel("Zeit warten nachdem Farbe gefunden wurde", 32, 120, 214, 17)
$Input23 = GUICtrlCreateInput("Input23", 256, 120, 57, 21)
$Label20 = GUICtrlCreateLabel("Taste die nach der Zeit gerdückt werden soll", 32, 144, 215, 17)
$Input24 = GUICtrlCreateInput("Input24", 256, 144, 57, 21)
$Label21 = GUICtrlCreateLabel("Zeit warten nachdem Farbe gefunden wurde", 32, 168, 214, 17)
$Input25 = GUICtrlCreateInput("Input25", 256, 168, 57, 21)
$Label17 = GUICtrlCreateLabel("Farbe", 40, 64, 31, 17)
$Label18 = GUICtrlCreateLabel("x", 128, 64, 9, 17)
$Label22 = GUICtrlCreateLabel("y", 176, 64, 9, 17)
EndFunc ;==>_Tab_2

VB:

Option Explicit 


' use API call to copy memory blocks
' size of blocks is specified as number of bytes
' both DINT (or INT32) and FLOAT (or REAL32) are 32-bit or 4-byte long


Private Declare Sub MoveMemory _
        Lib "KERNEL32" _
        Alias "RtlMoveMemory" _
        (ByVal Dest As Any, _
         ByVal Source As Any, _
         ByVal Bytes As Long)


' Convert DINT (INT32) to a FLOAT (REAL32)
Public Function Dint2Real(myDint As Long) As Single
    Call MoveMemory(VarPtr(Dint2Real), VarPtr(myDint), 4)
End Function


' Convert FLOAT (REAL32) to a DINT (INT32)
Public Function Real2Dint(myReal As Single) As Long
    Call MoveMemory(VarPtr(Real2Dint), VarPtr(myReal), 4)
End Function

Python

def dint2real(a,s,scale=0):
if (scale == 0):
a.write("ISCALE?")
scale=double(a.read(17).split()[0])
n=array(map(ord,s))
n=n.reshape(len(n)/4,4)
return scale*( (( -(n[:,0]&128) + (n[:,0]&127) )*256 + n[:,1])*2**16  
+ ( ( -(n[:,2]&128) + (n[:,2]&127) )*256 + n[:,3]) + (n[:, 
2]&128)*512     )




def sint2real(a,s,scale=0):
if (scale == 0):
a.write("ISCALE?")
scale=double(a.read(17).split()[0])
n=array(map(ord,s))
n=n.reshape(len(n)/2,2)
return scale*( ( -(n[:,0]&128) + (n[:,0]&127) )*256 + n[:,1])

#include <GuiConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Datei laden", 301, 89, 185, 188)
$Input1 = GUICtrlCreateInput("", 40, 32, 121, 21)
$Input2 = GUICtrlCreateInput("", 40, 60, 121, 21)
$Button1 = GUICtrlCreateButton("Durchsuchen", 176, 32, 75, 25, 0)
$Button2 = GUICtrlCreateButton("OK", 176, 60, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($Form2)
ExitLoop
Case $Button1
$Datei = FileOpenDialog("Datei öffnen", @ScriptDir, 'Alle Dateien (*.*)')
If @error Then ContinueCase
GUICtrlSetData($Input1, StringLeft($Datei, StringInStr($Datei, '\', 0, -1)))
GUICtrlSetData($Input2, StringTrimLeft($Datei, StringInStr($Datei, '\', 0, -1)))
Case $Button2
MsgBox(0, "", "hallo")
EndSwitch
WEnd

While True
Sleep(100)
WEnd