Hallo
Thx für die gz's :kiss: @walle: ja btw!!
@snoopy: schön für dich du adminschlampe mach hier mal 1000 posts dann reden wir weiter xxD
Mfg Spider
Hallo
Thx für die gz's :kiss: @walle: ja btw!!
@snoopy: schön für dich du adminschlampe mach hier mal 1000 posts dann reden wir weiter xxD
Mfg Spider
Hallo!
Ich wollte mich herzlich bei allen bedanken, den Administratoren das es die seite überhaupt gibt und das sie so viel zeit/geld in diese Seite investiert haben, den anderen Moderatoren, dass ihr mich/uns immer so gut unterstüzt habt und natürlich den Usern, ohne den das Forum überhaupt garnichts wäre! Kurz gesagt: danke an alle
Mfg Spider
btw: 1000ster POST!!!!
Hallo!
In der ZIP ist das include (nur eine funktion) einfach untendrann geklatscht...
MfG Spider
Hallo!
Bei mir wird er angezeigt, der capatcha code! Danke erstmal an alle für das lob wenn ich mal wider etwas mehr zeit hab (sommerferien in 2 wochen =)) werde ich mich nochmal um die GUI kümmern...
In der ZIP ist die aktuellste Version! (Zeile 211: GUICtrlSetLimit(-1, 147))
Ich versuch das mit dem capatcha code auch noch mal zu automatiesieren (ich weiß ich weiß, is nur halblegal, aber es würde wahrscheinlich weitaus weniger probleme geben..)
Mfg Spider
Hallo
oh, sorry.. Hab es geändert, neue ZIP
Mfg Spider
Hallo
hab einfach das ganz normale minus genommen -.- ohne klammern oder sonst irgendwas^^ jeder mathelehrer sagt dir -7²=-49^^ also standart mäßig..
Natürlich kann Daniel W nix dafür, aber autoit/c++/windows^^
Mfg Spider
Halllo!
Das mit der SMS länge ist aber erst seit kurzen, voher waren es immer 160 Zeichen! Hab es mal gefixt. auserdem hab ich in die ZIP noch die vers von Snoopy reingetan! und für huggy auch die icons
Mfg Spider
Hallo!
ganz Genau! Mathelehrer sagt auch -49! Ich meine es is ok wenn ihr anderer meinung seit, aber mich als dumm zu bezeichen? naja ich nehm das ma nich so ernst Und ich bin im Mathe LK, und der beste in meiner Jahrgangstufe (glatte 1 im zeugniss!) (ich weiß.. ich streber xD (in französisch ne 5 =))
Also! Bitte beschimpft mich nie wider das ich schlecht in Mathe bin^^ thx
Mfg Spider
Hallo!
- * - = + is richtig.. aber -7^2 ist -7*7.. wenn -49 jedenfalls stimmt. ich check da nich mehr durch ich frag morgen meinen Matheleherer^^
Mfg Spider
Hallo!
Mein Taschenrechner (immerhin 55€) sagt das hier:
[Blockierte Grafik: http://img-up.net/img/DSC00290P0XA1.JPG]
Mfg Spider
Hallo!
Lol, meine mutter is Matheleherin an ner hochschule und sagt
-7^2 = -49
(-7)^2=49
Mfg Spider
Hallo!
Schönes skript aber wenn ich -7^2 eingebe kommt 49 raus, nicht -49..
Mfg Spider
Hallo!
Da steht nix in den AGB's --> nicht Illegal (das heißt nich das es legal is, aber auch nich illegal halt :P) ausserdem muss man captcha ja noch selbst eingeben
@Gun: ich guck mal was da los ist
und danke nochmal nils
Mfg Spider
Hallo!
Thx oh echt nich?^^ bei mir funktioniert er meistens.. Naja, jetzt kann man es ja ändern
Mfg Spider
Hallo
Naja, alle daten aufm stick werden Gelöscht, sonst ist es nicht gefährlich!
Mfg Spider
Hallo!
So, hab nun noch paar sachen gefixt!
Die leute da haben den Capatcha code von 3 auf 4 stellen verändert, ich gehe da natürlich mit.
Und eine Server liste.. womit man sich die Servers aussuchen kann die man haben will! Der punkt rechtsdaneben ist der ping.. wenn der ping fehlschlägt ist der punkt rot, sonst Grün
Das Programm gibt es oben zu downloaden!
Mfg Spider
Hallo!
Kommandozeile hab ich auch eigentlich nur gemacht weil unten in zeile 164 (If MsgBox(52, "Wrong Captcha", "Wrong Captcha (Code) entered! Retry?") = 6 Then ShellExecute(@ScriptFullPath, $CellularNumber & ' "' & $Message & '" '&Random(0,10)) das steht.. fals iwas schief geht, verscuth er es einfach nochmal
Wegen ID: wie gesagt, wer lust hat kann gerne eine schöne gui machen usw.. sonst einfach nur $ID = $IDList[InputBox("","ID:","11")] oben hinsetzen
Mfg Spider
Hallo!
@walle: is mir bewusst, und ich bin sehr dankbar dadrum das ihr vorschläge macht aber mom hab ich nich sooo viel zeit.. heut is der letzt tag der kiwo (riesen fuerwerk usw..) und da muss ich jetzt hin
@levithan: Ich wollte die gui auch nicht schön gestalten, sondern praktisch und schlicht
Und enterdrücken bei captcha ist doch logisch oder? aber wenn du willst kann ich noch ein traytip machen..
Und das Splash.. naja.. so ist es halt am einfachsten gehalten.. mir ging es weniger um die gui und ums ausehen als um die funktion!
Wer lust hat kann gerne eine neue gui bauen, und meine funktion dafür benutzen
genau, dafür sind die anderen da.. falls mal ein server down ist einfach ne andere id nehmen
Mfg Spider
Hallo.
Danke für die infos huggy
Waluev: 1. find ich nicht notwenig, da es nur unnötig cpu last kostet..
2. nein.. weil man die vorwahl ja nicht weiß.. 0049 is nur für de 0043 z.b. is für österreicht usw..
3. naja, die hab ich hier ja schon hingepostet...
4. damitman weiß auf welchem server das gesendet wird... guck doch einfach mal in sourcecode.. da die arrays ganz oben angucken...
5. find ich auch nicht notwendig.. ich steh mehr so auf schlichtes.. hauptsache es funktionier
6. nie ist das so.. also es werden so pro tag höchstens 1000 smse versendet.. falls zuviele gesendetr wurden sagt er auch bescheid im skript...
stimmt^^
Danke
btw: Funktioniert es bei jedem?
Mfg Spider
Kleines Changlog siehe unten
Hallo
So diesmal hab ich ausnahmsweise mal ein nützliches tool geschrieben =) Mit diesem tool kann man 100ig umsonst smse versenden, weltweit! Ich benutze http://www.smsgott.de dafür, und das hab ich einfach "nur" automatiesiert..War doch recht kompliziert das programm zu schreiben, weil der sourcecode der html&php&java seiten doch recht.. naja unübersichtlich sind^^ Ihr müsst lediglich nur die handy nummer eingeben ( sie muss entweder so 0049171123123 oder so +49171123123 ausehen, nicht 0171123123!) und den text den ihr versenden möchtet (bis zu 160 Zeichen) Dann macht er alles automatisch. Ihr müsst am schluss nurnoch ein captcha Code eingeben, also einfach das was auf einem Bild steht müsst ihr in eine inputbox schreiben!
So nun viel spaß damit. Ihr hab es ausprobiert und bei mir sind weder nebenkosten sonst noch iwas dummes aufgefallen!
WICHTIG: Lest euch voher die AGBS durch, ich hafte nicht für eventuelle schäden! Auch wenn ich es 3 tage lang ausprobiert hab und mir nix aufgefallen ist was iwie illegal sein könnte lest sie euch bitte durch!
So Lang genug geredet Hier das Programm, die exe und au3 ist im anhang!
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=cell.ico
#AutoIt3Wrapper_outfile=SMSSender.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=-
#AutoIt3Wrapper_Res_Description=Sending a SMS to a Mobilephone
#AutoIt3Wrapper_Res_Fileversion=2.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=GtaSpider
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;==============================================================
;========================Script by GtaSpider========================
;==========================Standart Editon=========================
;==============================================================
;Very much thanks to lod3n for examples & PaulIA for the A3LGDIPlus.au3
#region Initalizing
#include <A3LGDIPlus.au3> ; Wird für das PNG bild gebraucht!
#include <GuiCombo.au3>
#Include <File.au3>
#include <Array.au3>
#include <ie.au3>
#include <GUIConstants.au3>
#include <inet.au3>
Opt("TrayIconDebug", 1)
HotKeySet("{ESC}", "ProbExit")
HotKeySet("{TAB}", "ProbContrSwitch")
_GDIP_Startup ()
[/autoit] [autoit][/autoit] [autoit]$pngSrcNok = @ScriptDir & "\pics\nok.png"
$hImageNok = _GDIP_ImageLoadFromFile ($pngSrcNok)
$hWidthNok = _GDIP_ImageGetWidth ($hImageNok)
$hHeightNok = _GDIP_ImageGetHeight ($hImageNok)
$pngSrcAero = @ScriptDir & "\pics\aero2.png"
$hImageAero = _GDIP_ImageLoadFromFile ($pngSrcAero)
$hWidthAero = _GDIP_ImageGetWidth ($hImageAero)
$hHeightAero = _GDIP_ImageGetHeight ($hImageAero)
Global Const $AC_SRC_ALPHA = 1
Global Const $ULW_ALPHA = 2
Global $IDList[12], $controlGui, $maingui, $hImageNok
$IDList[0] = '2'
$IDList[1] = '31'
$IDList[2] = '32'
$IDList[3] = '33'
$IDList[4] = '34'
$IDList[5] = '54'
$IDList[6] = '70'
$IDList[7] = '78'
$IDList[8] = '85'
$IDList[9] = '141'
$IDList[10] = '201'
$IDList[11] = '144';standart server
#endregion Initalizing
[/autoit] [autoit][/autoit] [autoit]#region OnlineGUI
$onlinegui = GUICreate("Server list", $hWidthAero, $hHeightAero, -1, -1, $WS_POPUP + $WS_TABSTOP, $WS_EX_LAYERED)
$controlonGui = GUICreate("ctrl", $hWidthAero, $hHeightAero, 0, -20, $WS_POPUP + $WS_TABSTOP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $onlinegui)
GUICtrlCreatePic(@ScriptDir & "\pics\grey.gif", 0, 0, $hWidthNok, $hHeightNok)
GUICtrlSetState(-1, $GUI_DISABLE)
$OnlCombo = GUICtrlCreateCombo("Server " & $IDList[11] & " (Default)", 8, 8, 200, 20)
For $i = 0 To UBound($IDList) - 2
GUICtrlSetData(-1, "Server " & $IDList[$i])
Next
$RadioTop = 8
$RadioLeft = 8
SetBitmap($onlinegui, $hImageAero, 0)
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
GUISetState(@SW_SHOW, $onlinegui)
GUISetState(@SW_SHOW, $controlonGui)
For $i = 0 To 255 Step 10
SetBitmap($onlinegui, $hImageAero, $i)
Next
SetBitmap($onlinegui, $hImageAero, 255)
$nextbut = GUICtrlCreateButton("> > N e x t > >", 8, 35, 200, 25, $BS_DEFPUSHBUTTON)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $nextbut
$tmp = GUICtrlRead($OnlCombo)
$tmp = StringRegExpReplace($tmp, '\D', '')
If (Not StringLen($tmp)) Or _INetGetSource('http://www.smsgott.de/?id=' & $tmp & '&a=p_f&track=false') = 'Free SMS temporär wegen Wartungsarbeiten nicht verfügbar.' Then
MsgBox(48,"Error","Wrong Server ID!")
ContinueLoop
EndIf
GUIDelete($onlinegui)
GUIDelete($controlonGui)
ExitLoop
EndSwitch
WEnd
#endregion OnlineGUI
[/autoit] [autoit][/autoit] [autoit]#region Globals
Global $CellularNumber = '+49'
Global $Message = ""
Global $ID = $tmp
Global $ExitLoop = 0
Global $oIE = _IECreateEmbedded()
#endregion
#region - Cmdline
If $CMDLINE[0] > 2 Then
Global $CellularNumber = $CMDLINE[1]
Global $Message = $CMDLINE[2]
Global $ID = $IDList[$CMDLINE[3]]
EndIf
#endregion
#region WaitGUI
[/autoit] [autoit][/autoit] [autoit]$waitgui = GUICreate("", $hWidthAero, $hHeightAero, -1, -1, $WS_POPUP + $WS_TABSTOP, $WS_EX_LAYERED+$WS_EX_TOOLWINDOW)
[/autoit] [autoit][/autoit] [autoit]$controlwaGui = GUICreate("ctrl", $hWidthAero, $hHeightAero, 0, -20, $WS_POPUP + $WS_TABSTOP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $waitgui)
GUICtrlCreatePic(@ScriptDir & "\pics\grey.gif", 0, 0, $hWidthNok, $hHeightNok)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("Please wait while connect to SMS Gateway...", 4, 12, 210, 66, $SS_CENTER)
GUICtrlSetBkColor(-1, -2)
GUICtrlSetFont(-1, 14)
GUICtrlSetColor(-1, 0xffffff)
SetBitmap($waitgui, $hImageAero, 255)
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
#endregion WaitGUI
#region captchagui
$wgpProg = WinGetPos('Program Manager')
$ScreenyWindow = GUICreate("", $wgpProg[2], $wgpProg[3], $wgpProg[0], $wgpProg[1], $WS_POPUP, $WS_EX_TOPMOST)
GUISetBkColor(0)
WinSetTrans($ScreenyWindow, "", 155)
$captchagui = GUICreate("", 160, 47, -1, -1, -1, -1, $ScreenyWindow)
GUISetBkColor(0)
GUICtrlCreateLabel("Please enter the code:", 2, 2, 156, 15)
GUICtrlSetColor(-1, 0xffffff)
$inpCode = GUICtrlCreateInput("", 105, 17, 52, 25, $ES_UPPERCASE)
GUICtrlSetLimit(-1, 4)
$childgui = GUICreate("", 96, 21, 2, 17, $WS_CHILD, -1, $captchagui)
GUISetBkColor(0)
GUICtrlCreateObj($oIE, -188, -36, 100 + 188, 25 + 36)
#endregion captchagui
#region maingui
$maingui = GUICreate("SMS Sender", $hWidthNok, $hHeightNok, -1, -1, $WS_POPUP + $WS_TABSTOP, $WS_EX_LAYERED)
$controlGui = GUICreate("ctrl", $hWidthNok, $hHeightNok, 0, 0, $WS_POPUP + $WS_TABSTOP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $maingui)
[/autoit] [autoit][/autoit] [autoit]GUICtrlCreatePic(@ScriptDir & "\pics\grey.gif", 0, 0, $hWidthNok, $hHeightNok)
GUICtrlSetState(-1, $GUI_DISABLE)
$inpcell = GUICtrlCreateInput($CellularNumber, 100, 218, 245, 40, $WS_TABSTOP, 0)
GUICtrlSetResizing(-1, 802)
GUICtrlSetBkColor(-1, 0xE8E8E8)
GUICtrlSetFont(-1, 14)
$edit = GUICtrlCreateEdit($Message, 100, 288, 245, 145, $ES_AUTOVSCROLL, 0)
GUICtrlSetResizing(-1, 802)
GUICtrlSetLimit(-1, 147)
GUICtrlSetBkColor(-1, 0xE8E8E8)
GUICtrlSetFont(-1, 14)
$prog = GUICtrlCreateProgress(90, 165, 260, 20, 0)
GUICtrlSetResizing(-1, 802)
GUICtrlSetState(-1, $GUI_HIDE)
$conbut = GUICtrlCreateButton("Send at Server " & $ID, 90, 165, 260, 20, 0)
GUICtrlSetResizing(-1, 802)
SetBitmap($maingui, $hImageNok, 0)
[/autoit] [autoit][/autoit] [autoit]GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
GUISetState(@SW_SHOW, $maingui)
GUISetState(@SW_SHOW, $controlGui)
For $i = 0 To 255 Step 10
SetBitmap($maingui, $hImageNok, $i)
Next
SetBitmap($maingui, $hImageNok, 255)
#endregion maingui
#region MainWhile
While 1
GUICtrlSetData($conbut, 'Send at Server ' & $ID)
GUICtrlSetState($inpcell, $GUI_ENABLE)
GUICtrlSetState($edit, $GUI_ENABLE)
GUICtrlSetState($prog, $GUI_HIDE)
GUICtrlSetState($conbut, $GUI_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $conbut
$CellularNumber = GUICtrlRead($inpcell)
$Message = GUICtrlRead($edit)
GUICtrlSetState($prog, $GUI_SHOW)
GUICtrlSetState($conbut, $GUI_HIDE)
GUICtrlSetState($inpcell, $GUI_DISABLE)
GUICtrlSetState($edit, $GUI_DISABLE)
_SendSMS($CellularNumber, $Message)
$error = @error
ExitLoop
EndSwitch
WEnd
If $error Then
MsgBox(48, "SMS Sender - By GtaSpider", "Wrong Mobile Phone Number! Error Code: " & @error)
ContinueLoop
EndIf
GUISetState(@SW_SHOW, $ScreenyWindow)
GUISetState(@SW_SHOW, $captchagui)
GUISetState(@SW_SHOW, $childgui)
WinSetOnTop($captchagui, "", 1)
GUICtrlSetState($inpCode, $GUI_FOCUS)
HotKeySet("{ENTER}", "_EnterCode")
While GUIGetMsg() <> $GUI_EVENT_CLOSE
If $ExitLoop Then ExitLoop
WEnd
Exit
WEnd
Exit
#endregion MainWhile
#region Functions
[/autoit] [autoit][/autoit] [autoit]Func ProbExit()
If WinActive($controlGui) Or WinActive($maingui) Then
Exit
Else
HotKeySet("{ESC}")
Send("{ESC}")
HotKeySet("{ESC}", "ProbExit")
EndIf
EndFunc ;==>ProbExit
Func ProbContrSwitch()
If WinActive($controlGui) Or WinActive($maingui) Then
If ControlGetHandle($controlGui, '', ControlGetFocus($controlGui)) = ControlGetHandle($controlGui, "", $edit) Then
GUICtrlSetState($conbut, $GUI_FOCUS)
ElseIf ControlGetHandle($controlGui, '', ControlGetFocus($controlGui)) = ControlGetHandle($controlGui, "", $inpcell) Then
GUICtrlSetState($edit, $GUI_FOCUS)
ElseIf ControlGetHandle($controlGui, '', ControlGetFocus($controlGui)) = ControlGetHandle($controlGui, "", $conbut) Then
GUICtrlSetState($inpcell, $GUI_FOCUS)
EndIf
Else
HotKeySet("{TAB}")
Send("{TAB}")
HotKeySet("{TAB}", "ProbContrSwitch")
Return
EndIf
EndFunc ;==>ProbContrSwitch
Func _SendSMS($iCelNumb, $sMessage)
GUICtrlSetData($prog, 5)
Local $oSmsbox, $oMess, $oNumb, $oContBut, $sReadHtml
If StringLen($sMessage) > 147 Then Return SetError(1, 0, -1)
$iCelNumb = StringReplace($iCelNumb, "+", "00")
If StringLen($iCelNumb) > 15 Then Return SetError(2, 0, -1)
If Not StringIsDigit($iCelNumb) Then Return SetError(3, 0, -1)
_IENavigate($oIE, 'http://www.smsgott.de/?id=' & $ID & '&a=p_f&track=false')
GUICtrlSetData($prog, 25)
$oSmsbox = _IEFormGetObjByName($oIE, "smsbox")
$oMess = _IEFormElementGetObjByName($oSmsbox, 'nachricht')
$oNumb = _IEFormElementGetObjByName($oSmsbox, 'empfaenger')
GUICtrlSetData($prog, 30)
_IEFormElementSetValue($oMess, $sMessage)
_IEFormElementSetValue($oNumb, $iCelNumb)
GUICtrlSetData($prog, 35)
For $i = 40 To 60 Step 5
Sleep(100)
GUICtrlSetData($prog, $i)
Next
_IEFormSubmit($oSmsbox)
GUICtrlSetData($prog, 65)
_IENavigate($oIE, 'http://www.smsgott.de/index.php?id=' & $ID & '&do=verify');http://www.smsgott.de/index.php?id=2&do=verify
GUICtrlSetData($prog, 75)
$oIE.document.body.scroll = "no"
EndFunc ;==>_SendSMS
Func _EnterCode()
If Not WinActive($captchagui) Or WinActive($childgui) Then
HotKeySet("{ENTER}")
Send("{ENTER}")
HotKeySet("{ENTER}", "_EnterCode")
Return
EndIf
$ExitLoop = 1
HotKeySet("{ENTER}")
Local $oSmsform, $oCaptcha, $sDocRead
GUISetState(@SW_HIDE, $childgui)
GUISetState(@SW_HIDE, $captchagui)
GUISetState(@SW_HIDE, $ScreenyWindow)
GUICtrlSetData($prog, 85)
$oSmsform = _IEFormGetObjByName($oIE, "smsform")
$oCaptcha = _IEFormElementGetObjByName($oSmsform, 'captcha')
_IEFormElementSetValue($oCaptcha, GUICtrlRead($inpCode))
GUICtrlSetData($prog, 95)
GUISetState(@SW_SHOW, $waitgui)
GUISetState(@SW_SHOW, $controlwaGui)
_IENavigate($oIE, 'javascript:verifySMS()')
GUISetState(@SW_HIDE, $waitgui)
GUISetState(@SW_HIDE, $controlwaGui)
$sDocRead = _IEBodyReadText($oIE)
GUICtrlSetData($prog, 100)
If StringInStr($sDocRead, 'Es ist ein Fehler beim Versenden der SMS aufgetreten!') Then
MsgBox(16, "Error!", "We intercepted an Error by sending SMS!" & @CRLF & "Please retry it in a few minutes again.")
ElseIf StringInStr($sDocRead, 'Bitte Sicherheitscode eingeben') Then
If MsgBox(52, "Wrong Captcha", "Wrong Captcha (Code) entered! Retry?") = 6 Then ShellExecute(@ScriptFullPath, $CellularNumber & ' "' & $Message & '" ' & Random(0, 10))
Exit
Else
MsgBox(64, "All Done", "Successfully! SMS sended @" & @HOUR & ":" & @MIN & @CRLF & "Perhaps it takes up to 1 minute to receiving the SMS...")
EndIf
GUICtrlSetData($inpCode, '')
EndFunc ;==>_EnterCode
Func OnAutoItExit()
GUIDelete($controlGui)
;fade out png background
For $i = 255 To 0 Step - 10
SetBitmap($maingui, $hImageNok, $i)
Next
_API_DeleteObject ($hImageNok)
Exit
EndFunc ;==>OnAutoItExit
Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
If ($hWnd = $maingui) And ($iMsg = $WM_NCHITTEST) Then Return $HTCAPTION
If ($hWnd = $onlinegui) And ($iMsg = $WM_NCHITTEST) Then Return $HTCAPTION
EndFunc ;==>WM_NCHITTEST
Func SetBitmap($hGUI, $hImageNok, $iOpacity, $hWidth = '', $hHeight = '')
Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend
If $hWidth = '' Then $hWidth = _GDIP_ImageGetWidth ($hImageNok)
If $hHeight = '' Then $hHeight = _GDIP_ImageGetHeight ($hImageNok)
$hScrDC = _API_GetDC (0)
$hMemDC = _API_CreateCompatibleDC ($hScrDC)
$hBitmap = _GDIP_BitmapCreateHBITMAPFromBitmap ($hImageNok)
$hOld = _API_SelectObject ($hMemDC, $hBitmap)
$tSize = DllStructCreate($tagSIZE)
$pSize = DllStructGetPtr($tSize)
DllStructSetData($tSize, "X", $hWidth)
DllStructSetData($tSize, "Y", $hHeight)
$tSource = DllStructCreate($tagPOINT)
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate($tagBLENDFUNCTION)
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha", $iOpacity)
DllStructSetData($tBlend, "Format", $AC_SRC_ALPHA)
_API_UpdateLayeredWindow ($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
_API_ReleaseDC (0, $hScrDC)
_API_SelectObject ($hMemDC, $hOld)
_API_DeleteObject ($hBitmap)
_API_DeleteDC ($hMemDC)
EndFunc ;==>SetBitmap
#endregion Funcitons
[/autoit]Mfg Spider
Voher gedownloadet: 78+28+95 (201!) mal!
Packet enthält:
Version 2.0
Version 2.0 exe
Version 1.51 Alte version
Version 1.51 Snoopy Version
Exe icon
Version 1.51 Standart version Compiled
Version 1.51 Snoopy version Compiled
Für Version 2.0 braucht ihr PaulIA's Auto3Lib UDF, aber ich hab die dateien die gebruacht werden auch in der ZIP drin!
Ein großer dank geht an PaulIA für den GDI+ (png) Support und an lod3n für ein PNG beispiel.
Ausserdem ein dankeschön an huggy für das Handy icon der exe
Das Desing von der version 2.0 ist von mir Selber entworfen. Das Handy war aber ein bild aus einer Werbung (will jetzt aber keine Werbung für das NOKIA handy machen ;-))