[Python]上班自動打卡

由於公司最近開始取消實體感應扣打卡而改成以電腦網頁登入打卡，雖然說這樣就不需要擔心感應扣不見或是忘記帶，但缺點就是電腦開機太慢或是下雨的時候還在辦公室外面整理雨衣導致可能會遲到幾秒鐘……，有鑑於此決定用Python寫一個設定時間就能自動打卡的程式，因為自己完全沒有基礎……所以全部參考網路上的分享來土炮編寫。

x
1
from os import listdir
2
from os.path import isfile, isdir, join
3
import os
4
import sys
5
import time
6
import datetime
7
import random
8
import re
9
import smtplib, ssl
10
from selenium import webdriver
11
from selenium.webdriver.common.by import By
12
from selenium.webdriver.common.action_chains import ActionChains
13
from selenium.webdriver.support import expected_conditions
14
from selenium.webdriver.support.wait import WebDriverWait
15
from selenium.webdriver.common.keys import Keys
16
from selenium.webdriver.common.desired_capabilities import DesiredCapabilities
17
​
18
​
19
#循環次數
20
t2 = 2880
21
#間距秒數
22
t3 = 30
23
'''
24
以資料夾名稱來判斷時間，會這樣設定是因為雲端空間在手機端操作比較方便，省去打開文件
25
編輯什麼的，也可達到遠端操作
26
'''
27
mypath = "D:\Google雲端硬碟\sync\上班打卡用"
28
​
29
#用正規式判斷有無資料夾，及資料夾格式是否為4個數字集合
30
##循環2880次，每次30秒
31
for i in range(0,t2,1):
32
    files = listdir(mypath)
33
    if len(files):              #判斷list不是空集合
34
        c_time0 = files[0]
35
        c_time1 = re.findall('\d{4}',c_time0) #變成list，所以要重新設定變成字串
36
        if c_time1: #判斷字串是不是4個數字連在一起
37
            c_time2 = re.split("",c_time1[0])
38
            c_time3 = c_time2[1]+c_time2[2]+":"+c_time2[3]+c_time2[4]
39
            #print(c_time3)
40
            break
41
        else:
42
            print('錯誤時間格式，繼續等待')
43
            for tt in range(t3,0,-1):
44
                print(tt)
45
                time.sleep(1)
46
            print("迴圈數",i,"/",t2)
47
            os.rmdir(mypath+"\\"+c_time0)
48
    else:
49
        n_time = datetime.datetime.now()
50
        print("找不到時間，等待30S重新判斷")
51
        for tt in range(t3,0,-1):
52
            print(tt)
53
            time.sleep(1)
54
        print("迴圈數",i,"/",t2)
55
​
56
#判斷時間
57
d_time = datetime.datetime.strptime(str(datetime.datetime.now().date())+c_time3, '%Y-%m-%d%H:%M')
58
n_time = datetime.datetime.now()
59
​
60
if n_time <= d_time:
61
    deltatime = (d_time - n_time).seconds -120
62
    print("打卡倒數時間=",str(datetime.timedelta(seconds=deltatime)),"≒",deltatime,"秒")
63
    for x in range(deltatime,0,-1):
64
        print("剩下：",x,"秒")
65
        time.sleep(1)
66
else:
67
    print("打卡時間小於目前時間，不符合邏輯，程式10秒後自動關閉")
68
    time.sleep(10)
69
    sys.exit()
70
​
71
#打卡動作
72
'''
73
利用firefox的selenuim記錄，最方便，但是程式碼需要修正才行
74
by_id(xxx)這部分錄製的程式碼不符合python3，需要手動修正
75
'''
76
driver = webdriver.Firefox()
77
rantime = random.randint(6,60)
78
driver.get("__公司網址__")
79
driver.find_element_by_id("txtUser10").send_keys("__帳號__")
80
driver.find_element_by_id("txtPwd10").send_keys("__密碼__")
81
time.sleep(rantime)
82
driver.find_element_by_id("btnCheckIn10").click()
83
​
84
## 關閉瀏覽器
85
time.sleep(10)
86
driver.quit()
87
#刪除資料夾
88
os.rmdir(mypath+"\\"+c_time0)
89
​
90
#打卡成功通知，採用Gmail設定
91
port = 465  # For SSL
92
smtp_server = "smtp.gmail.com"
93
sender_email = "寄信者信箱"  # Enter your address
94
receiver_email = "收信者信箱"  # Enter receiver address
95
password = "密碼"
96
message = """\
97
Subject:check in to work 
98
​
99
It's worked"""
100
​
101
context = ssl.create_default_context()
102
with smtplib.SMTP_SSL(smtp_server, port, context=context) as server:
103
    server.login(sender_email, password)
104
    server.sendmail(sender_email, receiver_email, message)
105
​
106
#關閉程式
107
sys.exit()

 

 

[VBA]判斷式的應用及參考

 

x
1
r = 1
2
re = Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row
3
rs = 9
4
​
5
For r = rs To re
6
'or 的判斷需要將條件寫完整，不能省略等號左邊的條件
7
    If Cells(r, 7).Value = "新增項目新單價" Or Cells(r, 7).Value = "需議價" Then
8
'Range的變數要用下列方式呈現
9
        Range("E" & r & ":F" & r).Select
10
        Selection.ClearContents
11
'elseif 跟 and 的格式直接寫就好
12
    ElseIf Cells(r + 1, 3).Value = "" And Cells(r + 1, 7).Value = "新增項目新單價" Then
13
        Range("E" & r & ":F" & r).Select
14
        Selection.ClearContents
15
    ElseIf Cells(r, 2).Value = "合計" Then
16
        Range("F" & r).Select
17
        Selection.ClearContents
18
'like 可以寫成判斷式。如Cells(r, 4) Like "*單價計*" = true then  這樣
19
    ElseIf Cells(r, 4) Like "*單價計*" Then
20
        Range("F" & r).Select
21
        Selection.ClearContents
22
    End If
23
Next