ピヨパパ日記

Declare Function SetForegroundWindow Lib "user32" (Byval hWnd As Long) As Long
Declare Function IsIconic Lib "user32" (Byval hWnd As Long) As Long
Declare Function ShowWindowAsync Lib "user32" (Byval hWnd As Long, Byval nCmdShow As Long) As Long
Const SW_RESTORE& = 9

Sub Click(Source As Button)
  Dim UIWorkspace As New NotesUIWorkspace
  Dim UIDocument As NotesUIDocument
  Dim ShellApp As Variant
  Dim Windows As Variant
  Dim IExplore As Variant
  Dim IExplores() As Variant
  Dim TITLES() As String
  Dim TITLE As Variant
  Dim t As Integer
  Dim e As Integer
  Dim i As Integer
  Dim hWnd As Long
  
  Set UIDocument = UIWorkspace.CurrentDocument
  Set ShellApp = CreateObject("Shell.Application")
  Set Windows = ShellApp.Windows()
  For i = Windows.Count To 1 Step -1
    Set IExplore = Windows.Item(Windows.Count - i)
    If Instr(Strconv(IExplore.FullName, 2), "iexplore.exe") > 0 Then
      If Left(IExplore.Document.URL, 23) = "http://www.google.co.jp" Then
        Redim Preserve IExplores(e)
        Set IExplores(e) = IExplore
        e = e + 1
      End If
    End If
  Next
  If e = 1 Then
    t = 0
  Elseif e > 1 Then
    Redim TITLES(e - 1)
    For i = 0 To e - 1
      TITLES(i) = i + 1 & "番目"
    Next
    TITLE = UIWorkspace.Prompt(4, "転送", "Googleが複数開かれています。転送する画面を選択してください。", , TITLES)
    If Isempty(TITLE) Then
      Exit Sub
    End If
    t = Arraygetindex(TITLES, TITLE)
  Else
    Msgbox "Googleを開いてください。", 0 + 48, "転送"
    Exit Sub
  End If
  IExplores(t).Document.GetElementsByName("q")(0).Value  = UIDocument.FieldGetText("KEY")
  Msgbox "Googleへ転送しました。", 0 + 64, "転送"
  hWnd = IExplores(t).hWnd
  If IsIconic(hWnd) Then
    Call ShowWindowAsync(hWnd, SW_RESTORE)
  End If
  SetForegroundWindow hWnd
End Sub

<a href="#" onclick="(new ActiveXObject('WScript.Shell')).run('notes://srv/sample.nsf')">商品情報はこちら</a>

comment2, <a href="http://atyrausuarnasy.cn/2008-06/2007-dodge-truck-review">2007 dodge truck review</a>, [url="http://atyrausuarnasy.cn/2008-06/2007-dodge-truck-review"]2007 dodge truck review[/url], http://atyrausuarnasy.cn/2008-06/2007-dodge-truck-review 2007 dodge truck review, 37878,

@Command([ToolsRunMacro]; "contact")

スパム対策のため､URL(http://～)の複数書き込みはできません。
お手数ですが､戻るボタンより入力フォームにお戻りください。
You cannot input plural URL.
Please go back to the previous page by pressing the back button.

Sub Initialize
  Dim Session As New NotesSession
  Dim Document As NotesDocument
  Dim EMail As NotesDocument
  Dim Body As NotesRichTextItem
  Dim Regex As Variant
  Dim Matches As Variant
  
  Set Document = Session.DocumentContext
  Set Regex = CreateObject("VBScript.RegExp")
  Regex.Pattern = "http://|https://"
  Regex.Ignorecase = False
  Regex.Global = True
  Set Matches = Regex.Execute(Document.GetFirstItem("MEMO").Text)
  if Matches.Count > 1 Then
    Document.SaveOptions = 0
    Print "[/domino/contact.nsf/err?OpenPage]"
  Else
    Document.SaveOptions = 1
    Print "[/contact.nsf/contact?OpenPage]"
    Set EMail = New NotesDocument(Session.CurrentDatabase)
    Set Body = New NotesRichTextItem(EMail, "Body")
    EMail.Form = "Memo"
    EMail.SendTo = Document.EMAIL(0)
    EMail.Subject = "「お問い合わせ」受付完了のお知らせ"
    Call Body.AppendText("このたびはホームページをご利用いただきありがとうございました。")
    Call Body.AddNewLine(1)
    Call Body.AppendText("おって担当者よりご連絡させていただきます。")
    Call EMail.Send(False)
  End If
End Sub

Dim Regex As Variant
Dim Matches As Variant

Set Regex = CreateObject("VBScript.RegExp")
Regex.Pattern = "http://|https://"
Regex.Ignorecase = False
Regex.Global = True
Set Matches = Regex.Execute("スパムコメント https://xxxx http://xxx http://xxx")
Msgbox Matches.Count

Dim ScriptControl As Variant

Set ScriptControl = CreateObject("ScriptControl")
ScriptControl.Language = "JScript"
ScriptControl.ExecuteStatement "s = 'スパムコメント https://xxxx http://xxx http://xxx'.match(/http:\/\/|https:\/\//ig); i = s == null ? 0 : s.length;"
Msgbox ScriptControl.Eval("i")

Dim JSession As New JAVASESSION
Dim JClass As JavaClass
Dim JPattern As JavaObject
Dim JMatcher As JavaObject
Dim i As Long

Set JClass = JSession.GetClass("java/util/regex/Pattern")
Set JPattern = JClass.compile("http:\/\/|https:\/\/")
Set JMatcher = JPattern.matcher("スパムコメント https://xxxx http://xxx http://xxx")
While JMatcher.find()
  i = i + 1
Wend
Msgbox i

"<tr>" +
"<td width=60>" + YYYYMM + "</td>" +
"<td width=70 style=\"text-align:right\">" + @Text(URIAGE; ",") + "</td>" +
"<td><img src=\"" + @WebDbName + "/bar.gif\" height=10 width=" +
@Text(URIAGE/10000) + "></td>" +
"</tr>"

L := @DbColumn("" : "NoCache"; "" : ""; "sale"; 1);
@If(L = ""; ""; "<table>" + @Implode(L) + "</table>")