Dim WinHttp As New WinHttpRequest이렇게 "WinHttpRequest" 로 특정 URL 을 호출한다.
WinHttp.Open "GET", "http://daum.net"
WinHttp.Send
MsgBox WinHttp.ResponseText
Dim todayTime as String
todayTime = "2017-04-01 13:01:00"
DATE = Format(todayTime, "yyyy-MM-dd")
Time = Format(todayTime, "hh:mm:ss")
Private Sub Command1_Click()
Text2.Text = Hex2Dec(Text1.Text)
End Sub
Public Function Hex2Dec(HexNum As String) As Double
Dim DecNum As Double
Dim getHex As String
getHex = "0123456789ABCDEF"
For i = 1 To Len(HexNum)
If InStr(getHex, Mid$(HexNum, i, 1)) > 0 Then
DecNum = (DecNum * 16) + InStr(getHex, Mid$(HexNum, i, 1)) - 1
Else
MsgBox ("16진수 값이 아닙니다.")
End If
Next i
Hex2Dec = DecNum
End Function
if getChar = "A" then
DecNum = (DecNum * 16) + 10
else if getChar = "B" then
DecNum = (DecNum * 16) + 11
.
.
.
end if
Private Sub Command1_Click()
If IsNumeric(Text1.Text) Then
Text2.Text = Dec2Hex(Val(Text1.Text))
End If
End Sub
Public Function Dec2Hex(DecNum As Long) As String
Dim hexv As String, na As Long
hexv = ""
Do While DecNum > 0
na = DecNum Mod 16
Select Case na
Case 10
hexv = "A" + Trim(hexv)
Case 11
hexv = "B" + Trim(hexv)
Case 12
hexv = "C" + Trim(hexv)
Case 13
hexv = "D" + Trim(hexv)
Case 14
hexv = "E" + Trim(hexv)
Case 15
hexv = "F" + Trim(hexv)
Case Else
hexv = Str(na) + Trim(hexv)
End Select
If DecNum >= 16 Then
DecNum = Int(DecNum / 16)
Else
hexv = "0" + Trim(hexv)
Exit Do
End If
Loop
If Len(hexv) > 1 And (Len(hexv) Mod 2 = 1) Then
Dec2Hex = Mid(hexv, 2)
Else
Dec2Hex = hexv
End If
End Function
Public Sub Sendkeys(text$, Optional wait As Boolean = False)
Dim WshShell As Object
Set WshShell = CreateObject("wscript.shell")
WshShell.Sendkeys text, wait
Set WshShell = Nothing
End Sub
Option Explicit
Private Sub Form_Load()
Label1.Caption = "USB 없음"
Timer1.Enabled = True
Timer1.Interval = 5000
End Sub
Private Sub Timer1_Timer()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim objDrive As Object
Dim strDrive As String
Dim boolUSB As Boolean
strDrive = ""
boolUSB = False
For Each objDrive In FSO.Drives
If objDrive.DriveType = 1 Then
If objDrive.ISREADY = True Then
strDrive = objDrive.DriveLetter
boolUSB = True
End If
End If
Next
If boolUSB = True Then
Label1.Caption = "USB 가 " & strDrive & ": 드라이브로 연결되었습니다."
Else
Label1.Caption = "USB 없음"
End If
End Sub
ActiveX 컨트롤 파일 이름 버전 에디션
-------------------------------------------------------------------------
ADO Data Control 6.0 MSADODC.OCX 6.00.8171 L,P,E
Chart Control 6.0 MSCHRT20.OCX 6.00.8177 P,E
Comm Control 6.0 MSCOMM32.OCX 6.00.8169 P,E
Common Dialog Control 6.0 COMDLG32.OCX 6.00.8169 L,P,E
Data Bound List Controls 6.0 DBLIST32.OCX 6.00.8169 L,P,E
DataGrid Control 6.0 MSDATGRD.OCX 6.00.8169 L,P,E
DataList Controls 6.0 MSDATLST.OCX 6.00.8169 L,P,E
DataRepeater Control 6.0 MSDATREP.OCX 6.00.8169 P,E
FlexGrid Control 6.0 MSFLXGRD.OCX 6.00.8169 L,P,E
Hierarchical FlexGrid Control 6.0 MSHFLXGD.OCX 6.00.3005 L,P,E
Internet Transfer Control 6.0 MSINET.OCX 6.00.8169 P,E
MAPI Controls 6.0 MSMAPI32.OCX 6.00.8169 P,E
Masked Edit Control 6.0 MSMASK32.OCX 6.00.8169 P,E
Multimedia Control 6.0 MCI32.OCX 6.00.8169 P,E
PictureClip Control 6.0 PICCLP32.OCX 6.00.8169 P,E
RemoteData Control 6.0 MSRDC20.OCX 6.00.8169 E
Rich Textbox Control 6.0 RICHTX32.OCX 6.00.8169 L,P,E
SysInfo Control 6.0 SYSINFO.OCX 6.00.8169 P,E
Tabbed Dialog Control 6.0 TABCTL32.OCX 6.00.8169 L,P,E
Windows Common Controls-3 6.0 COMCT332.OCX 6.00.8169 P,E
Windows Common Controls 5.0 (SP2) COMCTL32.OCX 6.00.8022 L,P,E
Windows Common Controls 6.0 MSCOMCTL.OCX 6.00.8177 L,P,E
Windows Common Controls-2 5.0 (SP2) COMCT232.OCX 6.00.8022 L,P,E
Windows Common Controls-2 6.0 MSCOMCT2.OCX 6.00.8177 L,P,E
Winsock Control 6.0 MSWINSCK.OCX 6.00.8169 P,E
L = Learning Edition
P = Professional Edition
E = Enterprise Edition
