240Q：SSブログ

	ブログをはじめるログイン

2018年02月｜ 2018年03月｜2018年04月ブログトップ

Speed test

【RBB SPEED TEST】2018/03/08(木) 07:20:47 下り：41.91Mbps 上り：53.50Mbps #kaitekispeed

2018-03-08 07:22 nice!(0) コメント(0)
共通テーマ：moblog

2018-03-08

【RBB SPEED TEST】2018/03/08(木) 07:20:47 下り：41.91Mbps 上り：53.50Mbps #kaitekispeed

2018-03-08 07:21 nice!(0) コメント(0)
共通テーマ：moblog

Speed test

【RBB SPEED TEST】2018/03/07(水) 22:02:26 下り：4.57Mbps 上り：52.75Mbps #kaitekispeed

2018-03-07 22:03 nice!(0) コメント(0)
共通テーマ：moblog

<html>
<head>
<title>HtaClock</title>
<HTA:APPLICATION APPLICATIONNAME="HtaClock" ID="HtaClock" Border="dialog" INNERBORDER="no" MAXIMIZEBUTTON="no" SCROLL="no" VERSION="1.0" />
</head>
<script language="VBScript">
Dim theForm
Dim tOut
Dim alermOn, alermOff
Dim aHour, aMinute
tOut = 0
alermOn = 0
alermOff = 0
aHour = 0
aMinute = 0

Sub DisplayClock()
document.all.disp.innerText = FormatDateTime(Now,3) & aHour & ":" & aMinute & "/" & alermOn & "/" & alermOff & "/" & Hour(Now) & "/" & Minute(Now)
If (Hour(Now) = aHour) And (Minute(Now) = aMinute) Then alermOn = 1 End If
'msgbox aHour & ":" & aMinute
if (alermOn = 1) And (alermOff = 0) Then
MsgBox "ALERMMMM！",vbSystemModal
alermOff = 1
End If
End Sub

Sub Window_Onload
Dim width,height

width = 200
height = 200
self.ResizeTo width,height
tOut = setInterval("DisplayClock()", 100)
End Sub

Sub OnClickButtonOK()
window.Close
End Sub

Sub setAlerm()
Set theForm = Document.forms("form1")
aHour = int(theForm.myHour.value)
aMinute = int(theForm.myMinute.value)
MsgBox aHour & "時" & aMinute & "分にセットしました"
alermOn = 0
alermOff = 0
End Sub

Sub openChrome
Set GC = CreateObject("WScript.Shell")
GC.Run("chrome.exe --new-window -url " & "http://www.innerfashion.net http://ipoe.blog.so-net.ne.jp")
Set GC2 = CreateObject("WScript.Shell")
GC2.Run("chrome.exe --new-window -url " & "http://innerfashion.sakura.ne.jp")
Set GC3 = CreateObject("WScript.Shell")
GC3.Run("chrome.exe --new-window -url " & "http://www002.upp.so-net.ne.jp/kaeritai/")
End Sub
</script>