Jump to content

Search the Community

Showing results for tags 'labels'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • General
    • Announcements and Site News
    • Administration
  • AutoIt v3
    • AutoIt Help and Support
    • AutoIt Technical Discussion
    • AutoIt Example Scripts
  • Scripting and Development
    • Developer General Discussion
    • Language Specific Discussion
  • IT Administration
    • Operating System Deployment
    • Windows Client
    • Windows Server
    • Office

Categories

  • AutoIt Team
    • Beta
    • MVP
  • AutoIt
    • Automation
    • Databases and web connections
    • Data compression
    • Encryption and hash
    • Games
    • GUI Additions
    • Hardware
    • Information gathering
    • Internet protocol suite
    • Maths
    • Media
    • PDF
    • Security
    • Social Media and other Website API
    • Windows
  • Scripting and Development
  • IT Administration
    • Operating System Deployment
    • Windows Client
    • Windows Server
    • Office

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Location


WWW


Interests

Found 4 results

  1. I am using this code to do a basic thumbnail loading counter... what i want to do is change the count each time without changing everything else, i think just the number count flashing would be better than the whole thing flashing. i tried it with the whole label inside the loop but it flashed too much so i was thinking of just put a label over the top of the blank area... if its in triple digits it flashes horribly weird when gets to double digits, and then on single digits and i want to have it do its more like finding the position of where to place label on top of the other label , i know this needs cleaning up a ton but here is what i have which is semi working #include "GUIScrollbars_Ex.au3" #include <Skin.au3> #include <GDIPlus.au3> #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <GuiListView.au3> #include <GuiTab.au3> #include <StaticConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #include <File.au3> #include <Array.au3> #include <Process.au3> #include <Constants.au3> #include <String.au3> #include <Date.au3> #include <GDIplus.au3> #include <GuiButton.au3> #Include "Curl.au3" #include "GUIScrollbars_Ex.au3" #include <Skin.au3> #include <GuiButton.au3> #include <GuiListView.au3> #include <GuiTab.au3> #include <StaticConstants.au3> #include <WinAPI.au3> #include <WinAPIGdi.au3> #include "StringSize.au3" Global $iDialog_Width = 1280 Global $iDialog_Depth = 720 Global $blueness = 0xff0066ff $thumbCount = 110 $folder = "testing" $hDialog = GUICreate("", $iDialog_Width, $iDialog_Depth, -1, -1) GUISetState() _GDIPlus_Startup() ;initialize GDI+ Local $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hDialog) _GDIPlus_GraphicsSetSmoothingMode($hGraphics, $GDIP_SMOOTHINGMODE_HIGHQUALITY) Local $hPen = _GDIPlus_PenCreate($blueness, 6) ; Get the size of label needed to hold the text $aRet = _StringSize("Both vertically" & @CRLF & "and horizontally centered", 30) $iX = ($iDialog_Width - $aRet[2]) / 2 $iY = ($iDialog_Depth - $aRet[3]) / 2 _GDIPlus_GraphicsDrawRect($hGraphics, $iX - 30, $iY - 30, $aRet[2] + 60, $aRet[3] + 60, $hPen) $thumbLength = StringLen($thumbCount) $string2add = "Loading " & " " & " thumbnail(s) from " & $folder $paddLblDate = GUICtrlCreateLabel($string2add, $iX, $iY, $aRet[2], $aRet[3], $SS_CENTER) ConsoleWrite("label Left position : " & $iX & @CRLF) Local $countPosition = StringInStr($string2add, $thumbCount) ConsoleWrite("count position : " & $countPosition & @CRLF) Local $thumbPosition = StringInStr($string2add, "thumbnail(s)") ConsoleWrite("thumb position : " & $thumbPosition & @CRLF) GUICtrlSetFont(-1, 22, 600, 0, "Arial") GUICtrlSetColor($paddLblDate, $COLOR_WHITE) $labelStart = $iX + 130 ConsoleWrite("labelStart : " & $labelStart & @CRLF) For $i = 1 To $thumbCount - 1 $thumbCount = $thumbCount - 1 $thumbLabel = GUICtrlCreateLabel($thumbCount, $labelStart , $iY + 4, 50, 28, $SS_CENTER) GUICtrlSetFont(-1, 20, 700, 0, "Arial") GUICtrlSetColor($thumbLabel, $COLOR_RED) ConsoleWrite("New count : " & $thumbCount & @CRLF) sleep (600) next GUICtrlDelete($paddLblDate) GUICtrlDelete($paddLblDate) GUICtrlDelete($paddLblDate) _GDIPlus_PenDispose($hPen) _GDIPlus_GraphicsDispose($hGraphics)
  2. I am trying to create a GUI Simulator and feel there must be a better way to do it than the way I'm doing it now. I am loading a .jpg and enabling/disabling transparent(made black for this example) labels which load a different picture when clicked. See my code below. It works but I will be working with about 100 pictures total. #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=ico\control_panel.ico #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=C:\Users\knichols\Desktop\frmMain.kxf $frmMain = GUICreate("Simulator", 1024, 643) $Picture = GUICtrlCreatePic("C:\Simulator\ScreenShots\Image1.jpg", 0, 0,1024,643,$SS_BITMAP) $lblCopy = GUICtrlCreateLabel("", 73, 169, 220, 280) GUICtrlSetBkColor(-1, 000000);$GUI_BKCOLOR_TRANSPARENT GUICtrlSetCursor(-1, 0) $lblPrintFrom = GUICtrlCreateLabel("", 328, 169, 220, 280) GUICtrlSetBkColor(-1, 000000);$GUI_BKCOLOR_TRANSPARENT GUICtrlSetCursor(-1, 0) $lblScanTo = GUICtrlCreateLabel("", 583, 169, 220, 280) GUICtrlSetBkColor(-1, 000000);$GUI_BKCOLOR_TRANSPARENT GUICtrlSetCursor(-1, 0) $lblServicesHome = GUICtrlCreateLabel("", 223, 553, 42, 42) GUICtrlSetBkColor(-1, 000000);$GUI_BKCOLOR_TRANSPARENT GUICtrlSetCursor(-1, 0) $lblJobStatus = GUICtrlCreateLabel("", 473, 553, 42, 42) GUICtrlSetBkColor(-1, 000000);$GUI_BKCOLOR_TRANSPARENT GUICtrlSetCursor(-1, 0) $lblMachineStatus = GUICtrlCreateLabel("", 600, 553, 42, 42) GUICtrlSetBkColor(-1, 000000);$GUI_BKCOLOR_TRANSPARENT GUICtrlSetCursor(-1, 0) $lblOK = GUICtrlCreateLabel("", 733, 124, 94, 34) GUICtrlSetBkColor(-1, 000000);$GUI_BKCOLOR_TRANSPARENT GUICtrlSetCursor(-1, 0) GUICtrlSetState(-1, $GUI_DISABLE) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Local $bFileInstall = False Local $sFldr = "C:\Simulator\ScreenShots\" If DirGetSize($sFldr) <> -1 Then Local $bFileInstall = False Else DirCreate($sFldr) FileInstall("C:\Users\knichols\Desktop\ScreenShots\Image1.jpg", $sFldr & "Image1.jpg") FileInstall("C:\Users\knichols\Desktop\ScreenShots\Image3.jpg", $sFldr & "Image3.jpg") FileInstall("C:\Users\knichols\Desktop\ScreenShots\Image21.jpg", $sFldr & "Image21.jpg") FileInstall("C:\Users\knichols\Desktop\ScreenShots\Image21.jpg", $sFldr & "Image22.jpg") FileInstall("C:\Users\knichols\Desktop\ScreenShots\Image43.jpg", $sFldr & "Image43.jpg") FileInstall("C:\Users\knichols\Desktop\ScreenShots\Image68.jpg", $sFldr & "Image68.jpg") FileInstall("C:\Users\knichols\Desktop\ScreenShots\Image69.jpg", $sFldr & "Image69.jpg") EndIf While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $lblJobStatus GUICtrlSetImage($Picture, "C:\Simulator\ScreenShots\Image69.jpg") DisableLabels() Case $lblServicesHome GUICtrlSetImage($Picture, "C:\Simulator\ScreenShots\Image1.jpg") EnableLabels() Case $lblMachineStatus GUICtrlSetImage($Picture, "C:\Simulator\ScreenShots\Image43.jpg") DisableLabels() Case $lblCopy GUICtrlSetImage($Picture, "C:\Simulator\ScreenShots\Image3.jpg") DisableLabels() Case $lblPrintFrom GUICtrlSetImage($Picture, "C:\Simulator\ScreenShots\Image68.jpg") DisableLabels() Case $lblScanTo GUICtrlSetImage($Picture, "C:\Simulator\ScreenShots\Image21.jpg") GUICtrlSetState($lblOK, $GUI_ENABLE) DisableLabels() Case $lblOK GUICtrlSetImage($Picture, "C:\Simulator\ScreenShots\Image22.jpg") GUICtrlSetState($lblOK, $GUI_DISABLE) EndSwitch WEnd Func DisableLabels() GUICtrlSetState($lblCopy,$GUI_DISABLE) GUICtrlSetState($lblScanTo,$GUI_DISABLE) GUICtrlSetState($lblPrintFrom,$GUI_DISABLE) EndFunc Func EnableLabels() GUICtrlSetState($lblCopy,$GUI_ENABLE) GUICtrlSetState($lblScanTo,$GUI_ENABLE) GUICtrlSetState($lblPrintFrom,$GUI_ENABLE) EndFunc
  3. Hello all, I have to print a lot pdf labels during a day at work. One of our customers delivers them as a pdf file on a single A4 page. Every time when i need to print a specific label, i need to do the handling below to print the selected label to our Dymo printer. Can this be automated in a simple way? 1. Zoom opened pdf to 350% 2. Resize the window to fit the label 3. Select print 4. Choose printer 5. Select properties 6. Select left roll 7. Select the correct label size 8. Select current view 9. Press print...... If found the code below in the forum, is this, with some adjustments of course usable? (Thanks to M23) #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> ; Install a custom error handler Global $oMyError = ObjEvent("AutoIt.Error","_ComErrFunc") Global $iGUIWidth = 800, $iGUIHeight = 570, $fResized = False _Show_PDF() Func _Show_PDF() ; Get file to display Local $sFile = FileOpenDialog("Choose PDF", "C:\Temp", "PDF Files(*.pdf)", 3) ; put your own start folder here If @error Then MsgBox(0, "Error", "No file selected") Return EndIf ; Declare objects Local $oPDF = ObjCreate("AcroPDF.PDF.1"); $oPDF.src = $sFile ; Create GUI GUICreate("Label Printer", 1580, 590, -1, -1, BitOr($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX, $WS_MAXIMIZEBOX)) Local $GUI_ActiveX = GUICtrlCreateObj($oPDF, 10, 10, 1560, 570) GUICtrlSetStyle($GUI_ActiveX, $WS_VISIBLE) GUICtrlSetResizing($GUI_ActiveX, $GUI_DOCKAUTO) ; Auto Resize Object GUISetState() ; When window is resized, run this function GUIRegisterMsg($WM_SIZE, "MY_WM_SIZE") While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop EndSwitch If $fResized = True Then ConsoleWrite($iGUIWidth & " - " & $iGUIHeight & @CRLF) $fResized = False WinMove($GUI_ActiveX, "", Default, Default, $iGUIWidth - 20, $iGUIHeight - 20) EndIf WEnd ; Clear up $oPDF = "" $GUIActiveX = "" Exit EndFunc Func MY_WM_SIZE($hWnd, $Msg, $wParam, $lParam) $iGUIWidth = BitAND($lParam, 0xFFFF) $iGUIHeight = BitShift($lParam, 16) $fResized = True Return $GUI_RUNDEFMSG EndFunc ;==>MY_WM_SIZE Func _ComErrFunc() Local $HexNumber = Hex($oMyError.number,8) Msgbox(0,"AutoItCOM Test","We intercepted a COM Error !" & @CRLF & @CRLF & _ "err.description is: " & @TAB & $oMyError.description & @CRLF & _ "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _ "err.number is: " & @TAB & $HexNumber & @CRLF & _ "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _ "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _ "err.source is: " & @TAB & $oMyError.source & @CRLF & _ "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _ "err.helpcontext is: " & @TAB & $oMyError.helpcontext _ ) SetError(1) EndFunc
  4. Hi i have some problemes in gettings my Lables and icons to be transperent, i can make my labels transperent with guictrlsetbgkcolor(-1,"-2") but then the texts look weird. As it is to thick i can't get my icons to be transpent either Plz Plz Plz some help me Ps. is there any way i can change the default push button to the currenly active button? #cs***************************************** Proxy_Switch.au3 by Krabbe Created with ISN AutoIt Studio v. 0.94 BETA Created with ISN Form Studio 2 for ISN AutoIt Studio Script Version: 1.0 Last Modified: 21-11-2013 Script Function: Enable and Disable proxy settings in IE as user don't normaly know the path #ce***************************************** #include <GUIConstantsEx.au3> #include <ButtonConstants.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <GUIConstants.au3> #include <Constants.au3> #Include <GuiButton.au3> #include <GDIPlus.au3> #include <WinAPI.au3> #include <Array.au3> #include <IE.au3> Global $WlanInf[7] Global $LanInf[7] Global $PXYSVR = "proxy.intranet.ap" Global $PXYPRT = "80" Global $RegKeyLoc = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" Global $wbemFlagReturnImmediately = 0x10, $wbemFlagForwardOnly = 0x20 Global $objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2") Global $hImage = @Scriptdir& "\Images\hGUI1.png" Global $cImage = @Scriptdir& "\Images\cGUI.gif" Global $hGUI, $cGUI, $BtnEnableDisable, $BtnExit Global $LblCurrentConnect, $LblCurrentState, $LblSuggestSetting Global $RegGetProxyCurAdr, $RegGetProxyState #cs==========$WlanInf============ #cs==========$LanInf============= | [0] = Name | | [0] = Name | | [1] = MacAdress | | [1] = MacAdress | | [2] = Connect True/False | | [2] = Connect True/False | | [3] = Connected 2 Domain name | | [3] = Connected 2 Domain name | | [4] = Your Computer Domain | | [4] = Your Computer Domain | | [5] = IpAdress | | [5] = IpAdress | | [6] = Gateway | | [6] = Gateway | #ce============================== #ce============================== ;====================================== Start GDI Magic ================================ _GDIPlus_Startup() ; Initialize GDI+ library $hImage = _GDIPlus_ImageLoadFromFile($hImage) ; Main GUI Bckg Img $width = _GDIPlus_ImageGetWidth($hImage) ; Img Width | GUI Width $height = _GDIPlus_ImageGetHeight($hImage) ; Img Height | GUI Height _MainUI() Func _MainUI() Global $hGUI = GUICreate("MSI Recovery Image Finder", $width, $height, -1, -1, $WS_POPUP,$WS_EX_LAYERED) GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST") GUISetState(@SW_SHOW,$hGUI) For $i = 0 To 240 Step 10 SetBitmap($hGUI, $hImage, $i) Sleep(10) Next Global $cGUI = GUICreate('childgui', $width, $height, 4, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD,$GUI_WS_EX_PARENTDRAG), $hGUI) $ChildBckg = GUICtrlCreatePic($cImage, 0, 0, $width, $height) GUICtrlSetBkColor($ChildBckg, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetState($ChildBckg, $GUI_DISABLE) Global $BtnEnable = GUICtrlCreateButton("Enable",75,85,60,20,$BS_DEFPUSHBUTTON,-1) GUICtrlSetFont(-1,8,400,0,"Constantia") Global $BtnDisable = GUICtrlCreateButton("Disable",165,85,60,20,$BS_DEFPUSHBUTTON,-1) GUICtrlSetFont(-1,8,400,0,"Constantia") Global $LblCurrentSetting = GUICtrlCreateLabel("",226,35,42,15,-1,-1) GUICtrlSetFont($LblCurrentSetting,8,400,0,"Constantia") Global $LblSuggestSetting = GUICtrlCreateLabel("",226,50,42,15,-1,-1) GUICtrlSetFont($LblSuggestSetting,8,400,0,"Constantia") Global $LblCurrentConnect = GUICtrlCreateLabel("proxy.intranet.ap:80",173,65,95,15,-1,-1) GUICtrlSetFont($LblCurrentConnect,8,100,0,"Constantia") ;~ GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT) Global $IcnExit = GUICtrlCreateIcon("imageres.dll",98,267,10,16,16,-1,-1) GUICtrlSetBkColor($IcnExit,$GUI_BKCOLOR_TRANSPARENT) Global $IcnHelp = GUICtrlCreateIcon("imageres.dll",99,249,10,16,16,-1,-1) GUICtrlSetBkColor($IcnHelp,0x373737) _GetCurrentProxyState() _GetActiveSSID() GUISetState(@SW_SHOW,$cGUI) While 1 _ChkIfProxyStateChanged() $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE, $IcnExit Exit Case $IcnHelp MsgBox(16,"Help","Coming Soon") Case $BtnEnable $RegWriteProxyEnable = RegWrite($RegKeyLoc, "ProxyEnable", "REG_DWORD", "1") DllCall('WININET.DLL', 'long', 'InternetSetOption', 'int', 0, 'long', 39, 'str', 0, 'long', 0) $RegGetProxyCurAdr = RegRead($RegKeyLoc,"ProxyServer") If BitOr($RegGetProxyCurAdr = -1,@error > 0,$RegGetProxyCurAdr = "") Then ConsoleWrite('RegRead($RegKeyLoc,"ProxyServer") = Failed >Error code: ' & @error & @crlf) ;### Debug Console BitAND(GUICtrlSetState($BtnDisable,$GUI_ENABLE),GUICtrlSetState($BtnEnable,$GUI_DISABLE)) BitAND(GUICtrlSetData($LblCurrentConnect,$RegGetProxyCurAdr),GUICtrlSetData($LblCurrentSetting,"Enabled")) Case $BtnDisable $RegWriteProxyDisable = RegWrite($RegKeyLoc, "ProxyEnable", "REG_DWORD", "0") DllCall('WININET.DLL', 'long', 'InternetSetOption', 'int', 0, 'long', 39, 'str', 0, 'long', 0) $RegGetProxyCurAdr = RegRead($RegKeyLoc,"ProxyServer") If BitOr($RegGetProxyCurAdr = -1,@error > 0,$RegGetProxyCurAdr = "") Then ConsoleWrite('RegRead($RegKeyLoc,"ProxyServer") = Failed >Error code: ' & @error & @crlf) ;### Debug Console BitAND(GUICtrlSetState($BtnDisable,$GUI_DISABLE),GUICtrlSetState($BtnEnable,$GUI_ENABLE)) BitAND(GUICtrlSetData($LblCurrentConnect,$RegGetProxyCurAdr),GUICtrlSetData($LblCurrentSetting,"Disabled")) EndSwitch WEnd EndFunc Func _GetCurrentProxyState() $RegGetProxyCurAdr = RegRead($RegKeyLoc,"ProxyServer") If BitOr($RegGetProxyCurAdr = -1,@error > 0,$RegGetProxyCurAdr = "") Then ConsoleWrite('RegRead($RegKeyLoc,"ProxyServer") = Failed >Error code: ' & @error & @crlf) ;### Debug Console ConsoleWrite('$RegGetProxyCurAdr = ' & $RegGetProxyCurAdr & ' >Error code: ' & @error & @crlf) ;### Debug Console ;~ If $RegGetProxyCurAdr <> "proxy.intranet.ap:80" Then ;~ $RegWriteProxyAdr = RegWrite($RegKeyLoc, "ProxyServer", "REG_SZ", $PXYSVR & ":" & $PXYPRT) ;~ DllCall('WININET.DLL', 'long', 'InternetSetOption', 'int', 0, 'long', 39, 'str', 0, 'long', 0) ;~ $RegGetProxyCurAdr = RegRead($RegKeyLoc,"ProxyServer") ;~ GUICtrlSetData($LblCurrentConnect,$RegGetProxyCurAdr) ;~ Else ;~ $RegGetProxyCurAdr = RegRead($RegKeyLoc,"ProxyServer") ;~ GUICtrlSetData($LblCurrentConnect,$RegGetProxyCurAdr) ;~ EndIf $RegGetProxyState = RegRead($RegKeyLoc,"ProxyEnable") ConsoleWrite('$RegGetProxyState = ' & $RegGetProxyState & ' >Error code: ' & @error & @crlf) ;### Debug Console If $RegGetProxyState = 0 Then BitAND(GUICtrlSetData($LblCurrentState,"Disabled"),GUICtrlSetState($BtnEnable,$GUI_ENABLE),GUICtrlSetState($BtnDisable,$GUI_DISABLE)) If $RegGetProxyState = 1 Then BitAND(GUICtrlSetData($LblCurrentState,"Enabled"),GUICtrlSetState($BtnEnable,$GUI_DISABLE),GUICtrlSetState($BtnDisable,$GUI_ENABLE)) EndFunc Func _ChkIfProxyStateChanged() $RegGetProxyState = RegRead($RegKeyLoc,"ProxyEnable") ConsoleWrite('Current Proxy State = ' & $RegGetProxyState & ' >Error code: ' & @error & @crlf) ; If user changes proxy manualy while the prg is running If GUICtrlRead($LblCurrentSetting)="Enabled" And $RegGetProxyState = 0 Then GUICtrlSetState($BtnDisable,$GUI_DISABLE) GUICtrlSetState($BtnEnable,$GUI_ENABLE) GUICtrlSetData($LblCurrentConnect,$RegGetProxyCurAdr) GUICtrlSetData($LblCurrentSetting,"Disabled") EndIf ; If user changes proxy manualy while the prg is running If GUICtrlRead($LblCurrentSetting)="Disabled" And $RegGetProxyState = 1 Then GUICtrlSetState($BtnDisable,$GUI_ENABLE) GUICtrlSetState($BtnEnable,$GUI_DISABLE) GUICtrlSetData($LblCurrentConnect,$RegGetProxyCurAdr) GUICtrlSetData($LblCurrentSetting,"Enabled") EndIf EndFunc Func _GetActiveSSID() Global $Output = "", $colItems = "", $colItems1 = "" $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly) If IsObj($colItems) then For $objItem In $colItems If StringInStr($objItem.Caption,"Intel") Then If $objItem.NetConnectionID = "Wireless Network Connection" Then $WlanInf[0] = $objItem.Description $WlanInf[1] = $objItem.MACAddress $WlanInf[2] = $objItem.NetEnabled ElseIf $objItem.NetConnectionID = "Local Area Connection" Then $LanInf[0] = $objItem.Description $LanInf[1] = $objItem.MACAddress $LanInf[2] = $objItem.NetEnabled EndIf $Output="" EndIf Next Else Msgbox(0,"WMI Output ERROR","No WMI Objects Found for class: " & "Win32_NetworkAdapter",2) SetError(1,0,"Error in WMI Win32_NetworkAdapter") Endif $colItems1 = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration", "WQL",$wbemFlagReturnImmediately + $wbemFlagForwardOnly) If IsObj($colItems1) then For $objItem In $colItems1 If StringInStr($objItem.Caption,"Intel") <> 0 Then If BitAND($WlanInf[1] = $objItem.MACAddress, $WlanInf[0] = $objItem.Description) Then $WlanInf[3] = $objItem.DNSDomain $WlanInf[4] = $objItem.DNSDomainSuffixSearchOrder(0) $WlanInf[5] = $objItem.IPAddress(0) $WlanInf[6] = $objItem.DefaultIPGateway(0) ElseIf BitAND($LanInf[1] = $objItem.MACAddress, $LanInf[0] = $objItem.Description) Then $LanInf[3] = $objItem.DNSDomain $LanInf[4] = $objItem.DNSDomainSuffixSearchOrder(0) $LanInf[5] = $objItem.IPAddress(0) $LanInf[6] = $objItem.DefaultIPGateway(0) EndIf EndIf Next Else Msgbox(0,"WMI Output ERROR","No WMI Objects Found for class: " & "Win32_NetworkAdapterConfiguration",2) SetError(2,0,"Error in WMI Win32_NetworkAdapterConfiguration") Endif If $LanInf[3] <> "intranet.ap" Then GUICtrlSetData($LblSuggestSetting,"Disabled") Else GUICtrlSetData($LblSuggestSetting,"Enabled") EndIf EndFunc Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam) If ($hWnd = $hGUI) And ($iMsg = $WM_NCHITTEST) Then Return $HTCAPTION EndFunc Func SetBitmap($hGUI, $hImage, $iOpacity) Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend $hScrDC = _WinAPI_GetDC(0) $hMemDC = _WinAPI_CreateCompatibleDC($hScrDC) $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage) $hOld = _WinAPI_SelectObject($hMemDC, $hBitmap) $tSize = DllStructCreate($tagSIZE) $pSize = DllStructGetPtr($tSize) DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth($hImage)) DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage)) $tSource = DllStructCreate($tagPOINT) $pSource = DllStructGetPtr($tSource) $tBlend = DllStructCreate($tagBLENDFUNCTION) $pBlend = DllStructGetPtr($tBlend) DllStructSetData($tBlend, "Alpha", $iOpacity) DllStructSetData($tBlend, "Format", 1) _WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA) _WinAPI_ReleaseDC(0, $hScrDC) _WinAPI_SelectObject($hMemDC, $hOld) _WinAPI_DeleteObject($hBitmap) _WinAPI_DeleteDC($hMemDC) EndFunc
×
×
  • Create New...