Jump to content

mesale0077

Active Members
  • Posts

    484
  • Joined

  • Last visited

  • Days Won

    1

mesale0077 last won the day on November 6 2014

mesale0077 had the most liked content!

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

mesale0077's Achievements

  1. http://proxy-nl.blogspot.nl/go.php ? 404 not found
  2. hi cool click koda button insert into suite this error ,
  3. control input vs. the materials are not working. With the ie menu ie menus I want to use . ie menus works notepad ,calc , about, exit .but guıcontrol inputbox , button etc dont work ,what should I do? thank you now #include <IE.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <StaticConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Process.au3> If UBound(ProcessList(@ScriptName)) > 2 Then Exit OnAutoItExitRegister("_IE_Embedded_unregistry") RegWrite('HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', _ProcessGetName(@AutoItPID),"REG_DWORD",0x00002af9) Global $Form1 = GUICreate("by @mesale0077", 680, 470, -1, -1) $Label1 = GUICtrlCreateLabel("KCYNSY :", 68, 16, 112, 17) $Label2 = GUICtrlCreateLabel("SCYNSY :", 68, 60, 120, 17) GUICtrlSetLimit(-1, 2) $Input2 = GUICtrlCreateInput("3", 192, 56, 57, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER)) GUICtrlSetLimit(-1, 2) $Input1 = GUICtrlCreateInput("1", 192, 16, 57, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER)) $Button1 = GUICtrlCreateButton("CLİCK ME", 256, 24, 57, 41, $WS_GROUP) GUICtrlSetCursor(-1, 0) $Label3 = GUICtrlCreateLabel("Hazyrlayan: @mesale0077", 176, 88, 144, 17) GUISetState() Global $hGUI = GUICreate("",684, 468, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $Form1) $oIE = _IECreateEmbedded() $Obj_RCV = GUICtrlCreateObj($oIE, 0, 0, 684, 468) Local $oDocEvents = ObjEvent($oIE.document, "Event_", "HTMLDocumentEvents2") #forceref $oDocEvents _IENavigate($oIE, @ScriptDir&"\index.html") _HideScroll($oIE) Local $oEventsDoc = ObjEvent($oIE.document, "Event_", "HTMLDocumentEvents2") #forceref $oEventsDoc _API_SetLayeredWindowAttributes($hGUI,0xb0c4de,255) _IEAction($oIE, "refresh") _IELoadWait($oIE) GUISetState() #region - GUI SelectLoop While 1 $extMsg = GUIGetMsg() Switch $extMsg Case $GUI_EVENT_CLOSE RegDelete('HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', _ProcessGetName(@AutoItPID)) Exit Case $Button1 msgbox(0,"","helloword") EndSwitch WEnd Func _HideScroll($Temp_Object) Local $hText = 'var temp_h1 = document.body.clientHeight;'& _ 'var temp_h2 = document.documentElement.clientHeight;'& _ 'var isXhtml = (temp_h2<=temp_h1&&temp_h2!=0)?true:false;'& _ 'var htmlbody = isXhtml?document.documentElement:document.body;'& _ 'htmlbody.style.overflow = "hidden";' $Temp_Object.document.parentwindow.execscript($hText,"javascript") EndFunc volatile Func Event_onclick($oEvtObj) If IsObj($oEvtObj) Then Local $oElem = $oEvtObj.srcElement If Not IsObj($oElem) Then Return Local $nId = $oElem.id Switch $nId Case "Notepad" run("notepad.exe") Case "Hesapmakinası" run("calc.exe") Case "hakkında" $oIE.document.parentwindow.execScript('$.fn.jAlert({ "title": "Hakkında", "message": "Mesale0077 tarafından yapılmıştır.!", "theme":"dark" });') Case "çıkış" RegDelete('HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', _ProcessGetName(@AutoItPID)) Exit EndSwitch EndIf EndFunc Volatile Func Event_oncontextmenu($oEvtObj) If IsObj($oEvtObj) Then $oEvtObj.returnValue = False EndFunc Func _API_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $isColorRef = False) Local Const $AC_SRC_ALPHA = 1 Local Const $ULW_ALPHA = 2 Local Const $LWA_ALPHA = 0x2 Local Const $LWA_COLORKEY = 0x1 If Not $isColorRef Then $i_transcolor = Hex(String($i_transcolor), 6) $i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2)) EndIf Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $LWA_COLORKEY + $LWA_ALPHA) Select Case @error Return SetError(@error, 0, 0) Case $Ret[0] = 0 Return SetError(4, 0, 0) Case Else Return 1 EndSelect EndFunc Func _IE_Embedded_unregistry() RegDelete('HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', _ProcessGetName(@AutoItPID)) endfunc
  4. http://support.microsoft.com/kb/199243/en
  5. $ghGDIPDll to $__g_hGDIPDll change please
  6. look to site http://stackoverflow.com/questions/11511511/how-to-save-a-png-image-server-side-from-a-base64-data-string or http://stackoverflow.com/questions/15140063/extract-a-file-from-a-zip-string ı dont know php
  7. cool :thumbsup: code Case $idButtonRecordStart _RecordStart() to Case $idButtonRecordStart GUISetState ( @SW_HIDE, $hGui ) sleep(500) _RecordStart() try
×
×
  • Create New...