#Python語言: python gtalk機器人
# coding: utf-8
# 這是根據xmpp封裝的Jabber聊天機器人類, 可以通過繼承,重載部分函數來自定義功能.
# Jabber ID(JID): 比如gamcat@gmail.com
import xmpp
class Bot:
""" Jabber Bot Base Class """
JID = ''
PASSWORD = ''
client = None
def __init__ (self, jid, password):
self.JID = xmpp.JID(jid)
self.PASSWORD = password
self.login()
def login (self):
self.client = xmpp.Client(self.JID.getDomain(), debug=[])
if self.client.connect() == '':
raise 'JabberBot not connected.'
if self.client.auth(self.JID.getNode(), self.PASSWORD) == None:
raise 'JabberBot authentication failed.'
self.client.RegisterHandler('message', self.message_callback)
self.client.RegisterHandler('presence', self.presence_callback)
self.client.sendInitPresence()
def message_callback (self, client, message):
""" 默認消息回調(可通過繼承自定義) """
def presence_callback (self, client, message):
""" 默認事件回調,包括下面幾個(可通過繼承自定義) """
type = message.getType()
who = message.getFrom().getStripped()
if type == 'subscribe':
self.subscribe(who)
elif type == 'unsubscribe':
self.unsubscribe(who)
elif type == 'subscribed':
self.subscribed(who)
elif type == 'unsubscribed':
self.unsubscribed(who)
elif type == 'available' or type == None:
self.available(message)
elif type == 'unavailable':
self.unavailable(who)
def subscribe (self, jid):
""" 加好友 """
self.client.send(xmpp.Presence(to=jid, typ='subscribed'))
self.client.send(xmpp.Presence(to=jid, typ='subscribe'))
def unsubscribe (self, jid):
""" 取消好友 """
self.client.send(xmpp.Presence(to=jid, typ='unsubscribe'))
self.client.send(xmpp.Presence(to=jid, typ='unsubscribed'))
def subscribed (self, jid):
""" 已加 """
def unsubscribed (self, jid):
""" 已退 """
def available (self, message):
""" 上線 """
def unavailable (self, jid):
""" 下線 """
def send (self, jid, message):
""" 發消息給某人"""
self.client.send(xmpp.protocol.Message(jid, message))
def step (self):
""" 用在迴圈中 """
try:
self.client.Process(1)
except KeyboardInterrupt: # Ctrl+C停止
return False
return True
#===========================
# 測試
#===========================
class Bot(Bot):
def message_callback (self, cl, msg):
fromid = msg.getFrom().getStripped()
cont = msg.getBody()
self.send2admin(msg)
def send2admin (self, message):
self.send('admin@gmail.com', 'Test')
if __name__ == '__main__':
gb = Bot ('yourbot@gmail.com', '******')
gb.send2admin ('Bot Started')
# 開始運行
while (gb.step()): pass
#!/usr/bin/python
# -*- coding: utf-8 -*-
from pyxmpp.jid import JID
from pyxmpp.message import Message
from pyxmpp.jabber.client import JabberClient
from pyxmpp.jabber.simple import send_message
from pyxmpp import streamtls
class Gtalk():
def __init__(self, sid, spwd):
self.sid = JID(sid)
self.spwd = spwd
def send_msg(self, rid, msg):
self.rid = JID(rid)
if not self.sid.resource:
self.sid = JID(self.sid.node, self.sid.domain, 'send_message')
msg = Message(to_jid=self.rid, body=msg)
def send(stream):
stream.send(msg)
self.xmpp_do(send)
def xmpp_do(self, function):
class Client(JabberClient):
def session_started(self):
function(self.stream)
self.disconnect()
tls = streamtls.TLSSettings(require=True, verify_peer=False)
auth = ['sasl:PLAIN']
gtalkClient = Client(self.sid, self.spwd, tls_settings=tls, auth_methods=auth)
gtalkClient.connect()
try:
gtalkClient.loop(1)
except KeyboardInterrupt:
print u'disconnecting...'
gtalkClient.disconnect()
if __name__ == '__main__':
g = Gtalk('account@gmail.com', u'password')
g.send_msg('to@gmail.com', 'Hello World')
Option Explicit
Private Sub TestReg()
Dim reg As Object
Dim mc As Object
Dim m As Object
Set reg = CreateObject("vbscript.regExp")
With reg
.Global = True
.IgnoreCase = True
.Pattern = "\d+"
End With
Set mc = reg.Execute("123aaaaa987uiiui999")
For Each m In mc
MsgBox m.Value
Next
End Sub
Option Explicit
Private Sub 歷史成交資訊_Click()
Dim xlStockid As String, URL As String
xlStockid = Range("B1")
UsedRange.Offset(4).Clear
URL = "http://ichart.finance.yahoo.com/table.csv?s=" & xlStockid & "&a=00&b=1&c=1998&d=" & Format(Month(Date) - 1, "00") & "&e=" & Day(Date) & "&f=" & Format(Year(Date), "0000") & "&g=d&ignore=.csv"
With Workbooks.Open(URL)
.Sheets(1).UsedRange.Offset(1).Copy [a5]
.Close 0
End With
End Sub
各類指數名稱
|
對應代碼
|
美元兌台幣的歷史
|
USDTWD=x
|
台灣證交所
|
|
加權指數
|
^TWII
|
不含金融股
|
^TIWI
|
金融保險類
|
^TFNI
|
大陸
|
|
深圳綜合
|
^SZSC
|
深圳成份
|
^SZSC1
|
A股指數
|
^SZSA
|
A股成份
|
^SZSA1
|
B股指數
|
^SZSB
|
B股成份
|
^SZSB1
|
綜合指數
|
^SSEC
|
A股指數
|
^SSEA
|
B股指數
|
^SSEB
|
工業指數
|
^SSEI
|
商業指數
|
^SSEM
|
地產指數
|
^SSEP
|
公用事業
|
^SSEU
|
香港證交所
|
|
恆生指數
|
^HSI
|
金融指數
|
^HSNF
|
公用事業指數
|
^HSNU
|
地產指數
|
^HSNP
|
工商指數
|
^HSNC
|
中國企業指數
|
^HSCE
|
中資企業指數
|
^HSCC
|
亞太地區
|
|
中國 上海綜合指數
|
000001.SS
|
香港 恆生指數
|
^HSI
|
日本 Nikkei
225
|
^N225
|
新加坡 海峽時報指數
|
^STI
|
南韓 漢城綜合指數
|
^KS11
|
印度 BSE 30
|
^BSESN
|
印尼 雅加達指數
|
^JKSE
|
馬來西亞 KLSE
Composite
|
^KLSE
|
澳洲 All
Ordinaries
|
^AORD
|
菲律賓 PSE
Composite
|
^PSI
|
斯里蘭卡 All
Share
|
^CSE
|
歐洲
|
|
奧地利 ATX
|
^ATX
|
法國 CAC 40
|
^FCHI
|
德國
|
^GDAX
|
英國 FTSE 100
|
^FTSE
|
非洲/中東
|
|
埃及 CMA
|
^CCSI
|
以色列 TA-100
|
^TA100
|
Option Explicit
Sub 寶來100()
Dim oXMLHTTP As Object
Dim objStream As Object
Dim i As Integer, j As Integer, Rowstart As Integer
Dim Webbadydata() As String, Webheader() As String, WebPageData As String
Dim tmep As String
'設定XMLHTTP與ADODB物件
Set oXMLHTTP = CreateObject("Msxml2.XMLHTTP")
Set objStream = CreateObject("ADODB.Stream")
'使用UTF8,取得網頁資料
With oXMLHTTP
.Open "GET", "http://www.p-shares.com/0051-4-1-1.asp", False
.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
.send
If .Status = 200 Then '網頁請求成功
With objStream
.Open
.WriteText oXMLHTTP.ResponseBody
.Position = 0 '從頭開始
.Type = 2 '以文字模式操作(adTypeText),用以text/ntext欄位保存純文本資料，另有二進位方式操作adTypeBinary
.Charset = "Big5" 'UTF-8編碼(近期網頁有修改，請以Big5編碼)
WebPageData = .ReadText '取得主要資料欄位
.Close
End With
Else
MsgBox "無法取得資料"
End If
'釋放資源
Set objStream = Nothing
End With
'釋放資源
Set oXMLHTTP = Nothing
MsgBox WebPageData
Sheets("Sheet1").Select
Webheader = Split(WebPageData, "<th class=""" & "word12" & """>") '取得header說明
For i = 1 To UBound(Webheader)
Cells(1, i) = Trim(Split(Mid(Webheader(i), 3, Len(Webheader(i))), "</th>")(0)) '先去除\r\n,再去除空白
Next
'對不需要資料先做刪除
Webbadydata = Split(WebPageData, "<tr align=" & """center""" & " bgcolor=" & """#DDE4EE""" & " class=" & """word""" & ">") '去頭
Webbadydata = Split(Webbadydata(1), "<tr align=" & """center""" & " bgcolor=" & """#E4DFFF""" & ">") '去尾
Webbadydata = Split(Webbadydata(0), "<td>") '開始取值
Rowstart = 2
For i = 1 To UBound(Webbadydata) Step 3
For j = 0 To 2
tmep = Trim(Mid(Webbadydata(i + j), 3, Len(Webbadydata(i + j)))) '對0D0A進行刪除並去除空白
Cells(Rowstart, j + 1) = Trim(StrReverse(Mid(StrReverse(Trim(Split(tmep, "</td>")(0))), 3, Len(StrReverse(Trim(Split(tmep, "</td>")(0))))))) '對0D0A進行刪除並去除空白
Next
Rowstart = Rowstart + 1
Next
End Sub