Wielokrotnie zdarza mi si\u0119 korzysta\u0107 z internetu w poci\u0105gu przy u\u017cyciu zwyk\u0142ego modemu 3g. Problem jest taki, \u017ce nie wsz\u0119dzie mamy zasi\u0119g. Warto by by\u0142o, aby aplikacje wymagaj\u0105ce internetu nie \u017car\u0142y nam baterii kiedy my spokojnie czytamy to, co za\u0142adowa\u0142a nam przegl\u0105darka, lub odpalamy pdfa. Dzi\u0119ki temu skryptowi w autoIT mo\u017cemy zaoszcz\u0119dzi\u0107 kilka minut na baterii – kt\u00f3re normalnie wy\u017car\u0142yby nam aplikacje sieciowe pr\u00f3buj\u0105ce si\u0119 po\u0142\u0105czy\u0107.
\n
\nCa\u0142y kod zosta\u0142 napisany w autoIT – jest to j\u0119zyk u\u017cywany przez programist\u00f3w kt\u00f3rzy pisz\u0105 testy interfejsu graficznego, albo dzieciak\u00f3w pisz\u0105cych boty do gier. Og\u00f3lnie mo\u017cna go u\u017cy\u0107 do wielu automatyzacji w samym Windowsie – lub chocia\u017cby jak ja – ubijania aplikacji po odpaleniu skryptu tylko w wypadku, kiedy lapek jest na baterii i jednocze\u015bnie nie ma internetu (w pozosta\u0142ych sytuacjach nie robi nic poza sprawdzeniem stanu po\u0142\u0105czenia i baterii).
\nW skrypcie wykorzystano WMI, nazywanego przez niekt\u00f3rych wbudowanym backdoorem, gdy\u017c na jego podstawie programista dowolnego j\u0119zyka (mamy dllk\u0119 w systemie) mo\u017ce odpyta\u0107 system o cokolwiek zechce ( w nast\u0119pnym wpisie mo\u017ce poka\u017c\u0119 jak wykorzysta\u0107 WMI z poziomu c#). Sam kodzik wygl\u0105da nast\u0119puj\u0105co:<\/p>\n
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****\r\n#AutoIt3Wrapper_Compile_Both=y\r\n#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****\r\n;MsgBox(0, \"Jest net?\", _IsInternetConnected())\r\n\r\nFunc _IsInternetConnected()\r\n\tLocal $aReturn = DllCall('connect.dll', 'long', 'IsInternetConnected')\r\n\tIf @error Then\r\n\t\tReturn SetError(1, 0, False)\r\n\tEndIf\r\n\tReturn $aReturn[0] = 0\r\nEndFunc ;==>_IsInternetConnected\r\n\r\nFunc _IsPowerOnline()\r\n\tLocal $isok = false\r\n\r\n$objWMIService = ObjGet(\"winmgmts:\\\\\" & \".\" & \"\\root\\wmi\")\r\nIf @ERROR Then\r\n MsgBox(0,\"\",\"Error creating object\")\r\n Exit\r\nEndIf\r\n$colItems = $objWMIService.ExecQuery(\"Select * From BatteryStatus\", \"WQL\", 0x10 + 0x20)\r\n\r\nFor $objItem in $colItems\r\n\tReturn $objItem.PowerOnline\r\nNext\r\nEndFunc\r\n\r\nFunc _runApps()\r\n\tIf ProcessExists(\"kadu.exe\") = 0 Then\r\n\tRun(\"C:\\Program Files (x86)\\Kadu\\kadu.exe\")\r\n\tEndIf\r\n\r\n\tIf ProcessExists(\"Psi.exe\") = 0 Then\r\n\tRun(\"C:\\Program Files\\Psi\\Psi.exe\")\r\n\tEndIf\r\n\r\n\tIf ProcessExists(\"putty.exe\") = 0 Then\r\n\tRun(\"C:\\Users\\piatkosia\\Desktop\\software\\putty.exe\")\r\n\tEndIf\r\n\r\n\tIf ProcessExists(\"Skype.exe\") = 0 Then\r\n\tRun(\"C:\\Program Files (x86)\\Skype\\Phone\\Skype.exe\")\r\n\tEndIf\r\n\tEndFunc\r\n\r\nFunc _skillujApki()\r\n\tMsgBox(0,\"ups\", \"Pad\u0142a sie\u0107. Killuj\u0119 apki\")\r\n\tSleep(5000)\r\n\tProcessClose(\"kadu.exe\")\r\n\tProcessClose(\"Psi.exe\")\r\n\tProcessClose(\"putty.exe\")\r\n\tProcessClose(\"Skype.exe\")\r\nEndFunc\r\n\r\nIF _IsPowerOnline() = False Then\r\n\tIF _IsInternetConnected() = False Then\r\n\t\t_skillujApki()\r\n\tElse\r\n\t_runApps()\r\n\t\t\tEndIf\r\nEndIf\r\n<\/pre>\nTak, nie jest to optymalnie napisane, powinnam zamiast rz\u0119du if\u00f3w zrobi\u0107 to jako\u015b \u0142adniej, ale chc\u0119, aby ka\u017cdy m\u00f3g\u0142 sobie pododawa\u0107 analogiczne bloki lub pousuwa\u0107 te ju\u017c istniej\u0105ce dostosowuj\u0105c skrypt do siebie. Jestem przyk\u0142adem osoby, kt\u00f3ra tego u\u017cywa. Odpalam jak widz\u0119 \u017ce net pad\u0142 lub wr\u00f3ci\u0142. Jak pada, apki si\u0119 kiluj\u0105, jak wsztaje, odpalaj\u0105 z powrotem. Nie doda\u0142am przegl\u0105darki celowo – bo po prostu czytam arty za\u0142adowane wcze\u015bniej. Swoj\u0105 drog\u0105, pozdrawiam z poci\u0105gu relacji Zielona G\u00f3ra – Szczecin G\u0142\u00f3wny:)<\/p>\n","protected":false},"excerpt":{"rendered":"
Wielokrotnie zdarza mi si\u0119 korzysta\u0107 z internetu w poci\u0105gu przy u\u017cyciu zwyk\u0142ego modemu 3g. Problem jest taki, \u017ce nie wsz\u0119dzie mamy zasi\u0119g. Warto by by\u0142o,<\/p>\n