隗合山
- 浏览: 19048 次
- 性别:
- 来自: 北京
-
最新评论
文章列表
StreamReader din = File.OpenText("url_ys.txt");
str = din.ReadLine(); din.Close();
// 设置打开页面的参数 String url = http://127.0.0.1:8060/myjob; HttpWebRequest request = WebRequest.Create(url) as HttpWe ...
using System;using System.Collections.Generic;using System.Text;using System.Xml;
namespace TEST{ class UI { private XmlDocument doc = new XmlDocument();
public UI(String sXML) { loadXML(sXML); }
public void loadXML(String sXML) { ...
在做项目的过程中，本来是想使用JAVA的comm.jar工具实现串口通讯，不知道怎么回事，总是取不到电脑的串口。所以，改为现在的这种模式：java通过socket给vb程序发送指令，然后VB程序通过comm部件给串口发送指令。效果不错。
程序服务端使用VB实现：
代码：
Private lngWSKIndex As LongPrivate Sub Form_Load() lvRecord.ColumnHeaders.Clear lvRecord.ColumnHeaders.Add , , "ID", lvRecord.Width / 15 lvReco ...
ADO常用方法下面是我所掌握的使用ADO对数据库操作的一些常用方法，主要是提供给初学者作为参考，有不对的地方请指正。如有补充不胜荣幸准备工作========Dim conn As New ADODB.Connection '创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行Dim rs As ADODB.Recordset '创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，因此没必要在这里使用Dim CnStr As String, Sql As String '创建两个字符串变量分别存放两个集合的SQL语句 ...
ArithmeticException public class ArithmeticException extends RuntimeException当出现异常的运算条件时，抛出此异常。例如，一个整数“除以零”时，抛出此类的一个实例。 ArrayIndexOutOfBandsException public class ArrayIndexOutOfBoundsException e ...
JAVA中的日期计算2006-07-31 17:31import java.text.DecimalFormat;//import java.text.ParseException;import java.text.SimpleDateFormat;import java.util.Calendar;import java.util.Date;
/** * 类描述：自己实现的日期计算类，可以自由扩展 * @author xieyh lamp5w@yahoo.com.cn * @version build 2005-3-18 * */public class DateCalculate { ...
写xml
package xml;
import java.io.IOException;import java.io.File;import java.io.PrintStream;import java.util.Properties;
public class propertiesTOXML { public static void main(String[] args) {
Properties p = new Properties(); p.setProperty("id","dean"); p.setPropert ...
SERVER端代码：
package socket; import java.io.DataOutputStream; import java.io.IOException; import java.net.ServerSocket; import java.net.Socket; public class SocketManager { /** * @param args * @throws IOException */ public static void main(String[] args ...
第一种方法，修改注册表
Dim strString As String
Dim keyhand As Long
Dim r As Long
strString = App.Path & "\" & App.EXEName & ".exe"
r = RegCreateKey(HKEY_LOCAL_MACHINE, "software\microsoft\windows\currentversion\run", keyhand)
r = RegSetValueEx(keyhand, "jsjuq ...
一、锁定键盘
1.添加模块
Module1
将以下代码复制到Module1
Public hHook As LongPublic h_Hook As LongDeclare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As LongDeclare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpf ...
1.添加一个label 用于显示时间
2.添加一个timer空间并将Interval属性设为1000（毫秒）。Enabled属性设置为false
3.添加3个command 分别为“设置时间”，“开始”，“结束”
4.添加一个模块，并在模块中添加以下代码用于时间转换：
...
'在程序中调用次方法即可
Private Sub addAuth(pip As String) Set WshShell = CreateObject("WScript.Shell") Call WshShell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range100\", "") Call WshShell.RegWrite("HKCU\So ...
FORM 窗口总在最前（显示隐藏视窗）
- 博客分类：
- VB
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByV ...