Sign in to follow this  
Followers 0
Svrij22

Admob Desktop Widget

1 post in this topic

#1 ·  Posted (edited)

Hello Autoit,

I recently made a cool little program that I wanted to share with you guys. I don't know if any of you has Admob, but if you do, this program automatically logs all your data and estimates how much you will make this day or month.

Current Features:

*Writes Log

*Average per Hour

*Estimated Month

*Estimated Day

Here's how it works: It opens an IE page, then reads all the text and splits it in an array, then filters the numbers and then calculates all the estimations.

 

I hope some of you will use this

 

Code:

#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <Date.au3>
#Include <GuiEdit.au3>
HotKeySet ("^g", "show")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Admob Widget", 430, 230, 0, 0)
$Label1 = GUICtrlCreateLabel("Today:", 8, 8, 80, 17)
$Label2 = GUICtrlCreateLabel("Yesterday", 8, 24, 80, 17)
$Label3 = GUICtrlCreateLabel("This Month:", 8, 40, 80, 17)
$Label4 = GUICtrlCreateLabel("Previous Month:", 8, 56, 80, 17)
$Label4 = GUICtrlCreateLabel("Estimated Today:", 8, 72, 185, 17)
$Label4 = GUICtrlCreateLabel("Estimated Month:", 8, 88, 185, 17)
$Label4 = GUICtrlCreateLabel("Average/Hour:", 8, 104, 185, 17)
$state = GUICtrlCreateLabel("State: Logging In", 8, 194, 185, 17)
$sleep = GUICtrlCreateCheckbox("Slow mode", 90, 150, 90, 17)
$Label4 = GUICtrlCreateLabel("Graph Height:", 8, 152, 80, 17)
$Input1 = GUICtrlCreateInput("100", 8, 168, 121, 21)
$Label22 = GUICtrlCreateLabel("v3.8", 140, 174, 121, 21)
$Label5 = GUICtrlCreateLabel("???", 112, 8, 100, 17)
$Label6 = GUICtrlCreateLabel("???", 112, 24, 100, 17)
$Label7 = GUICtrlCreateLabel("???", 112, 40, 100, 17)
$Label8 = GUICtrlCreateLabel("???", 112, 56, 100, 15)
$Label9 = GUICtrlCreateLabel("???", 112, 72, 100, 15)
$Label10 = GUICtrlCreateLabel("???", 112, 88, 100, 15)
$Label11 = GUICtrlCreateLabel("???", 112, 104, 100, 15)
$SmartAvg = GUICtrlCreateCheckbox("Smart Average", 8, 210, 100, 17)
$Button1 = GUICtrlCreateButton("View Log", 8, 120, 75, 25)
$Button2 = GUICtrlCreateButton("Hide", 90, 120, 75, 25)

$editctrl = GUICtrlCreateEdit("", 185, 8, 240, 215, $ES_AUTOVSCROLL + $ES_AUTOHSCROLL)
GUISetState(@sw_SHOW)

#EndRegion ### END Koda GUI section ###

;Starting Log
$NowTime = string (_NowCalc())
$hFileOpen = FileOpen("Log.txt", $FO_APPEND)
FileWrite($hFileOpen,$NowTime & " <--- Started (Widget by Svrij22)--->" & @crlf)

$Ai = 0
$Aval = 0
$Avalp = 0

global $log = ""

CheckLogin()
Refresh()

$i=0
$imax = 300

While 1

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$sTxtFileDir = @scriptdir & "\Log.txt"
Run ( "notepad.exe " & $sTxtFileDir, @windowsdir, @sw_MAXIMIZE )
Case $Button2
MsgBox ("","","Press CTRL-G To show again")
GUISetState(@sw_hide)
EndSwitch
sleep (60)
$i+=1
if $i>$imax Then
Refresh()
$i=0
EndIf
GUICtrlSetData ($state, "State: Idle "&$i)

if GUICtrlRead($sleep) = $GUI_CHECKED Then
$imax = 900
Else
$imax = 300
EndIf

WEnd

func show()
GUISetState(@sw_SHOW)
EndFunc



Func CheckLogin()
Local $oIE = _IECreate("apps.admob.com", 0, 0, 0)
_IELoadWait($oIE)
sleep (4000)
Local $sText = _IEBodyReadText($oIE)
if StringInStr ($sText,"MONETIZE") Then
GUICtrlSetData ($state, "State: Logged In Succesfully")
sleep (150)
Else
MsgBox ("","","Failed to Retrieve Data. Please Login to your Admob account on Internet Explorer")
$oIE = _IECreate("apps.admob.com",0,1,1)
_IELoadWait($oIE)
WinClose($Form1)
GUICtrlSetData ($state, "State: Error 403")
EndIf
EndFunc

Func Refresh()
GUICtrlSetData ($state, "State: Connecting")
Local $oIE = _IECreate("apps.admob.com", 0, 0, 0)
_IELoadWait($oIE)
sleep (4000)
GUICtrlSetData ($state, "State: Getting Data")
Local $sText = _IEBodyReadText($oIE)
If StringInStr ($sText,"Yesterday") Then ; TEST CONNECTION
$sText = StringRegExpReplace($sText, " ", "")
$sText = StringRegExpReplace($sText, "[abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ]", "")
$sText = StringRegExpReplace($sText, @crlf, "")
$sText = StringRegExpReplace($sText, @cr, "")
$sText = StringRegExpReplace($sText, @lf, "")
$aSplit = StringSplit($sText, "€")
_IEQuit($oIE)
;setdata
$sToday = $aSplit[2]
$sYes = $aSplit[3]
$sTM = $aSplit[4]
$sPM = $aSplit[5]
$sPM = StringTrimRight ($sPM,29)
GUICtrlSetData ($Label5,$sToday&" € Euro")
GUICtrlSetData ($Label6,$sYes&" € Euro")
GUICtrlSetData ($Label7,$sTM&" € Euro")
GUICtrlSetData ($Label8,$sPM&" € Euro")


GUICtrlSetData ($state, "State: Getting Date")
sleep (150)
;Get Date
$sTime2 = string (_NowTime())
$sTime2 = StringTrimRight ($sTime2,3)
$sTime2 = StringReplace ($sTime2,":",".")
$sTime2 = Number ($sTime2)
if $sTime2 > 10 Then
$sDate = @mday
Else
$sDate = @mday-1
EndIf


GUICtrlSetData ($state, "State: Calculating Month Estimation")
sleep (150)
;Calculate Month Estimation
$sAvg = $sTM/$sDate
$sAvg = $sAvg*31
$sAvg = Round ($sAvg,2)
$sAvg = string ($sAvg)
GUICtrlSetData ($Label10,$sAvg&" € Euro")


GUICtrlSetData ($state, "State: Writing Ini for GM Graph")
sleep (150)
;Write ini for GM Graph
$hFileOpen = FileOpen("graph.txt", 2)
FileWrite($hFileOpen,"[graph]" & @crlf)
FileWrite($hFileOpen,"val="&$sToday& @crlf)
FileWrite($hFileOpen,"hei="& GUICtrlRead ($Input1) & @crlf)
FileWrite($hFileOpen,'date="'& string (_NowTime()) &'"'& @crlf)


GUICtrlSetData ($state, "State: Calculating Time")
sleep (150)
;Calculate Time again??
$sTime = string (_NowTime())
$sTime = StringTrimRight ($sTime,3)
$sTime = StringReplace ($sTime,":",".")
$sTime = Number ($sTime)

if $sTime > 10 Then
$sTime -= 10
Else
$sTime += 14
EndIf


GUICtrlSetData ($state, "State: Calculating Average/Hour")
sleep (150)
;Calculate Average/Hour
$sAvgT = $sToday/$sTime
$sAvgT = round ($sAvgT,2)
GUICtrlSetData ($Label11,$sAvgT&" € Euro")


GUICtrlSetData ($state, "State: Calculating Hours Passed")
sleep (150)
;Calculate hours passed
$sTime = string (_NowTime())
$sTime = StringTrimRight ($sTime,3)
$sTime = StringReplace ($sTime,":",".")
$sTime = Number ($sTime)

if $sTime > 10 Then
$sTime -= 10
Else
$sTime += 14
EndIf

GUICtrlSetData ($state, "State: Calculating Day Estimation")
sleep (150)
;Calculate Daily
$sToday = Number ($sToday)
$sEsti = ($sToday/$sTime)*24
$sEsti = round($sEsti,2)
GUICtrlSetData ($Label9,"~"+string($sEsti)&" € Euro")
$NowTime = string (_NowCalc())
$NowTime = string (_NowCalc())


GUICtrlSetData ($state, "State: Calculating Smart Average")
sleep (150)
;SmartAvg Begin
GUICtrlSetData ($state, "State: Calculating Smart Average")
sleep (600)
if GUICtrlRead($SmartAvg) = $GUI_CHECKED Then
$Aval += $sEsti
$Ai+=1
$Avalp = ($Aval/$Ai)*0.85
$sEsti = $Avalp
GUICtrlSetData ($Label9,$Avalp&" € Euro")
EndIf
;SmartAvg End

GUICtrlSetData ($state, "State: Writing Log")
sleep (150)
;Write Log
$hFileOpen = FileOpen("Log.txt", $FO_APPEND)
FileWrite($hFileOpen,$NowTime & " Earnings: " & $sToday & " Avg/Hour: " & $sAvgT & " Estimated Earnings: Today: " & $sEsti & " This month:" & $sAvg & @crlf)



GUICtrlSetData ($state, "State: Calculating GUI Log")
sleep (150)
;Calc gui log
$log=$log & string (_NowTime()) & " E: " & $sToday & " A/H: " & $sAvgT & " ET: " & $sEsti & @CRLF
GUICtrlDelete ($editctrl)
$editctrl = GUICtrlCreateEdit("", 185, 8, 240, 215, $ES_AUTOVSCROLL + $ES_AUTOHSCROLL)
_GUICtrlEdit_InsertText($editctrl,$log)

GUICtrlSetData ($state, "State: Closing IE")
sleep (150)
;Close IE
ProcessClose ("iexplore.exe")
ProcessClose ("iexplore.exe")


Else
GUICtrlSetData ($state, "State: Failed to Retrieve Data")
EndIf

GUICtrlSetData ($state, "State: Cleaning")
sleep (500)
GUICtrlSetData ($state, "State: Idle")
EndFunc

(Sorry if my code isn't so advanced and crappy)

Edited by Svrij22

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0

  • Similar Content

    • JSmith312
      By JSmith312
      Hello Everyone! 
      I'm attempting to create a checklist app that performs other functions. For performance, I would like to check the box, then have the button to the right enabled. After that button is pressed, the second checkbox is enabled, and ready to be checked, allowing the second button to be pressed. After the second button is pressed, the completion/exit button is enabled/shown. I have my code that currently creates the GUI, creates the checkbox, but when you check it it enables the button and the next checkbox. Can't seem to figure out a Case for GUISetOnEvent. Any assistance would be appreciated!
      #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <EditConstants.au3> #include <MsgBoxConstants.au3> ; Below is the GUI interface _DeploymentProcess() Func _DeploymentProcess() $aStep1 = GUICreate("Deployment Process", 475, 345, 500, 175) $CBcStep1 = GUICtrlCreateCheckbox("1. Step 01.", 15, 25, 300, 25) $BTNS1 = GUICtrlCreateButton("Email 01", 365, 25, 90, 20) $CBcStep2 = GUICtrlCreateCheckbox("2. Step 02.", 15, 50, 300, 25) $BTNS2 = GUICtrlCreateButton("Email 02", 365, 50, 90, 20) GUICtrlSetState($CBcStep2, $GUI_DISABLE) GUICtrlSetState($BTNS1, $GUI_DISABLE) $CBcStep3 = GUICtrlCreateButton("Hurray! You're Complete!", 85, 276, 300, 60) GUICtrlSetState($CBcStep3, $GUI_SHOW) ; Below are the button and checkbox enables/disables. GUISetState(@SW_SHOW) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE GUIDelete($aStep1) Return ; Step 1 Case $CBcStep1 If GUICtrlRead($CBcStep1) = $GUI_CHECKED Then GUICtrlSetState($BTNS1, $GUI_ENABLE) GUICtrlSetState($CBcStep2, $GUI_ENABLE) Else GUICtrlSetState($BTNS1, $GUI_DISABLE) GUICtrlSetState($CBcStep2, $GUI_DISABLE) EndIf ; Step 2 Case $CBcStep2 If GUICtrlRead($CBcStep2) = $GUI_CHECKED Then GUICtrlSetState($BTNS2, $GUI_ENABLE) GUICtrlSetState($CBcStep3, $GUI_ENABLE) Else GUICtrlSetState($BTNS2, $GUI_DISABLE) GUICtrlSetState($CBcStep3, $GUI_DISABLE) EndIf Case $CBcStep3 If GUICtrlRead($CBcStep2) = $GUI_CHECKED Then GUICtrlSetState($BTNS10, $GUI_ENABLE) GUICtrlSetState($CBcStep3, $GUI_SHOW) Else GUICtrlSetState($CBcStep3, $GUI_EVENT_CLOSE) EndIf Case $GUI_EVENT_CLOSE, $CBcStep3 #comments-end Exit EndSwitch WEnd EndFunc  
    • VIP
      By VIP
      The simple widget shows the percentage of cpu, ram used and the CPU temperature (WMI).
      - Every 30s check, sync and update time for computer.
      - Drag adn Drop any files on GUI for reset Attribute (-RAHS) and set Full Access to Everyone !
      - Righ Click on x and click Un/Install app to boot with Windows!
      CPU_Widget_TimeSync.exe CRC32: 1956339E MD5: BFC2B596BD1EDA35D6B02B97F8FB57AE SHA-1: 796A663739EA5AC9890D9FA324A98E987F35E7C8
      Function code from:
      CPU: 
      RAM:  MemGetStats ( )
      Memory:   _WinAPI_EmptyWorkingSet ()
       
    • RoundChecker
      By RoundChecker
      Hi everyone,

      Is there a way to determine whether the script that is running, is already running, without using;
       
      If WinExists ?

      Or is there a way to use "If WinExists" to determine the script itself?

      The reason I am asking this is because if I want someone to run the .Exe I have and they rename it to whatever they want, how could I then determine in the script to check if there's already an .Exe open, or the script itself is already open?

      Should I use Class, or how do I achieve this?

      Thanks in advance.
    • svenjatzu
      By svenjatzu
      Id like to build a little helpertool for my boss in office but i dont know how to sart it.
      thats no complicated task. im working for an insurancecenter and have to search the customers in different orders and different tags.
      due to my boss is old and not really commen with pc he saves the customers without system.
      eg, customer andreas statham got an insurenca for his car then i got to search for
      andreas statham car, andreas car statham, car andreas statham, statham andreas car, statham car andreas, car statham andreass etc to find all the files from this customer in the harddrive.
      some customers also are fmiliarnamed in one file like andreas statam and monika rog are married an both got a carinsurance then i got to earch for
      andreas statham monika rog car, andreas statham monika car rog,.... this can take real long to find the right customer if i do it from hand.
      how can i realise this someone in here got an excamlple script or has any sugestion?
       
       
    • X_xkijux_x
      By X_xkijux_x
      Ok so im using this program. clarify for school. I would like to have a program that takes every word i type in microsoft word and searches on it in claryfi. is this possible. I would like to have the program not stopping me from typing more after that word. Like when i type a word it auto search it on clarify without making me stop typing and if i want to change i can do that and if im fine that word i can just keep typing and it will search after the next word.