· 本文汇集了在.NET中得到计算机硬件信息的一些功能。得到显示器分辨率
Dim X As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
Dim Y As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
MsgBox("您的显示器分辨率是:" & X & " X &q...
· Dim dt As New DataTabledt.Columns.Add(New DataColumn("UserID"))dt.Columns.Add(New DataColumn("IPP"))Dim dr As DataRow = dt.NewRowdr.Item("UserID") = "324"dr.Item("IPP") = "210.74.232.26:3824"dt.Rows.Add(dr)MsgBox(dt....
· Function CriaDiretorioVirtual(ByVal vdirname As String, ByVal serverID As String, ByVal vdirPath As String, ByVal criaApplication As Boolean) As DirectoryEntryDim newvdir As DirectoryEntryDim root As DirectoryEntryroot = New DirectoryEntry("IIS://localhost/W3SVC/" +...
· 设计思想:
在VB中数姐最大维数是60,所以我们通过错误捕捉来处理这个问题,在这里我们用到UBound函数
Public Function ArrayRange(mArray As Variant) As IntegerDim i As IntegerDim Ret As IntegerDim ErrF As BooleanErrF = FalseOn Error GoTo ErrHandle'判断代入的参数是否为数组 If Not Is...
· Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")TextBox1.Text = ""For Each WmiObj As Mana...
· Dim tep As StringDim temp As StringDim i As IntegerDim B As Integertep = rmsgi = Len(tep)If i < 1 Then Exit FunctionB = i / 4If i = B * 4 Thentep = Left(tep, B * 4)ElseB = B - 1tep = Left(tep, B * 4)End Ifchg = ""For i = 1 To Btemp = "&H" & Mid(...
· Dim tep As StringDim temp As StringDim i As IntegerDim B As IntegerDim rems As Stringtep = rmsgi = Len(tep)If i < 1 Then Exit FunctionB = i / 2If i = B * 2 Thentep = Left(tep, B * 2)ElseB = B - 1tep = Left(tep, B * 2)End Ifchg7 = ""rems = ""Dim trint As...
· Public Function D_To_B(ByVal Dec As Long) As StringDoD_To_B = Dec Mod 2 & D_To_BDec = Dec \ 2Loop While Dec
End FunctionPublic Function B_To_D(ByVal Bin As String) As IntegerDim i As LongFor i = 1 To Len(Bin)B_To_D = B_To_D * 2 + Val(Mid(Bin, i, 1))Next i
End FunctionPubl...
· Public Function ascg(smsg As String) As StringDim si, sb As IntegerDim stmp As IntegerDim stemp As Stringsb = Len(smsg)ascg = ""For si = 1 To sbstmp = AscW(Mid(smsg, si, 1))If Abs(stmp) < 127 Thenstemp = "00" & Hex(stmp)Elsestemp = Hex(stmp)End Ifas...