- 110,969
ビギナーズ投稿練習トピック
- 2013/04/12 17:59 更新
１．このトピックの楽しみ方
このトピックは、はじめてYahoo!掲示板に投稿する方のための「投稿練習用トピック」です。
掲示板での投稿登録の方法など、自由に練習することができます。
お気に入りのトピックに投稿する前に、ここで実践練習をしてみましょう。
【重要】掲示板をご利用いただく際には、「利用規約」と「コミュニティーサービスガイドライン」をご一読いだたき、ルールに沿った投稿をお願いいたします。
特に気を付けていただきたい、守っていただきたい点は以下の通りです。
・他人に対するいやがらせ、悪口、脅しはしてはいけません。
・わいせつな内容や不愉快な趣旨の発言をしてはいけません。
・コミュニティーのサービスを商業目的や広告目的で利用することは禁止しております。
・著作権者の許可を受けずに著作物を発信してはいけません。
※利用規約
http://docs.yahoo.co.jp/docs/info/terms/
※コミュニティーサービスガイドライン
http://docs.yahoo.co.jp/docs/info/terms/chapter1.html#cf3rd
なお、こちらの都合により、当掲示板を事前の予告なく削除する場合があります。
上記をご理解の上、当トピックをご利用ください。
- *****
返信数
0
No.110909
2013/03/31 09:12
Option Explicit
' 参照設定
' Microsoft InternetControls
' Microsoft HTML Object Library
' Microsoft VBScript Regular Expressions 5.5
Private Declare Sub Sleep Lib "KERNEL32.dll" (ByVal dwMilliseconds As Long)
Const SU = "http://textream.yahoo.co.jp/message/"
Const SU1 = SU & "1834634/bgbd02bda5qa5bda53a5sa4o"
Const SU2 = SU & "1834634/bgbd02bda5qa5bda53a5sa4oa1aa32"
Const SU6 = SU & "2000335/c0beita5qa5bda53a5sa5afa5ia5va1a12bc4xa1a1a4bda4nobba1a1"
Const SLIST = "〓winsuki2007〓wat*****〓kei2300jp〓" ' 追加可。両端は区切り文字。
Const SDLM = "〓" ' SLIST の区切り文字
Const SPTN = "userName[^>]*>([^<]+)<"
Sub ポチッ() ' 簡易簡略版
Dim arrU()
Dim vU
Dim oIe As InternetExplorer
Dim oE As HTMLDTElement
Dim oRe As RegExp
Dim oM As Match
Dim sIH As String
Dim cn As Long
Dim arrF(0 To 19) As Boolean
Dim flg As Boolean
arrU = Array(SU1, SU2, SU6)
Set oRe = New RegExp
With oRe
.Global = True
.IgnoreCase = True
.Pattern = SPTN
End With
Set oIe = New InternetExplorer
With oIe
.Visible = True
For Each vU In arrU
.Navigate vU
Do
While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
sIH = .Document.Body.innerHtml
Erase arrF
cn = 0
For Each oM In oRe.Execute(sIH)
If InStr(SLIST, SDLM & oM.SubMatches(0) & SDLM) Then arrF(cn) = True
cn = cn + 1
Next
cn = 0
For Each oE In .Document.getElementsByClassName("btnBad")
If arrF(cn) Then
oE.Children(0).Click
DoEvents
End If
cn = cn + 1
Next
' cn = 0
' For Each oE In .Document.getElementsByClassName("btnGood")
' If Not arrF(cn) Then
' oE.Children(0).Click
' DoEvents
' End If
' cn = cn + 1
' Next
flg = False
With .Document.getElementsByClassName("btnNext")
If .Length Then
.Item(0).Children(0).Click
flg = True
End If
End With
Loop While flg
Next vU
.Quit
End With
End Sub
'普通ポチボタンってipアドレスに付き１回よね？iいつまで？