今天做了一个搞恶的程序,胆大的可以下来玩玩
作者:Winahriman 日期:2007-02-27
建筑工程监督管理系统V3.0
作者:Winahriman 日期:2007-02-14
速影影碟出租管理系统V5.1
作者:Winahriman 日期:2007-02-14
使用VB+SoapToolKit3.0的一点点心得！
作者:Winahriman 日期:2008-08-24
在使用SoaptoolKit3.0的时候，通常访问WebServices的WSDL时，只需要使用方法MSSoapInit来连接服务器，然后直接调用服务方法即可实现WebServices的访问和操作。但是往往这个只能是访问一些简单的WebServices.对于一些带有头文件验证的服务，仅仅使用SoapClient这个高级对象是无法完成访问的。
由于自己也是第一次使用VB操作WebServices,所以在这方面走了很多弯路，也查阅了很多资料，但是网上对于这方面的资料可以说寥寥无几，在国外的网站上也仅仅是问的多，回答的很少，于是只能抱着SoapToolKit的帮助文件猛啃。不负有心人啊，终于让我搞懂了，并顺利通过测试，现在写点东西出来和大家分享！！
以下用代码简单说明,就不再用文字来慢慢说鸟~~~
Dim Ws as New SoapClient30
Ws.MSSoapInit 【WSDL的Http路径】
call ws.服务所提供的方法(方法所需要的参数)
这能访问简单的WebServices服务，
如果是带有头文件验证的，上面的代码在“call ws.服务所提供的方法(方法所需要的参数) ”的时候就会出错，错误描述为:no SoapAction Header!
该意思为没有SOAP头文件，故不能调用该服务所提供的函数方法。
由于我们仅仅使用SOAPCLIENT30这个高级对象来加入SOAP头，所以光靠上面的代码是无法访问WebServices服务的。那我们该如何加这个头呢！！！
呵呵，待续，累了，明天再写如何来加入这个头文件！！！
由于自己也是第一次使用VB操作WebServices,所以在这方面走了很多弯路，也查阅了很多资料，但是网上对于这方面的资料可以说寥寥无几，在国外的网站上也仅仅是问的多，回答的很少，于是只能抱着SoapToolKit的帮助文件猛啃。不负有心人啊，终于让我搞懂了，并顺利通过测试，现在写点东西出来和大家分享！！
以下用代码简单说明,就不再用文字来慢慢说鸟~~~
Dim Ws as New SoapClient30
Ws.MSSoapInit 【WSDL的Http路径】
call ws.服务所提供的方法(方法所需要的参数)
这能访问简单的WebServices服务，
如果是带有头文件验证的，上面的代码在“call ws.服务所提供的方法(方法所需要的参数) ”的时候就会出错，错误描述为:no SoapAction Header!
该意思为没有SOAP头文件，故不能调用该服务所提供的函数方法。
由于我们仅仅使用SOAPCLIENT30这个高级对象来加入SOAP头，所以光靠上面的代码是无法访问WebServices服务的。那我们该如何加这个头呢！！！
呵呵，待续，累了，明天再写如何来加入这个头文件！！！
翻到一个以前无聊玩WOW时挂战场的小程序
作者:Winahriman 日期:2008-08-23
一年前玩魔兽,耍上瘾了,跟到别人刷战场,由于魔兽的特殊原因,超过一定时间就会自动被踢下线,为了能挂机,就只有使用按键精灵之类的东西时不时让游戏人物动一下.这样才不会掉线!呵呵,但是这样的话就会把我的电脑完全占用了,其他什么事都不能做.为了不影响我做其他的事情,把WOW整成最小化,所以写了一个小程序来实现.
这就是实现的代码!!
首先使用API函数FindWindow来抓住WOW程序的句柄
然后通过函数postmessage向游戏程序发送按键消息.
使用控件Timer来定时向程序发送消息.
呵呵,这么一下,我的世界就清净咯哇,不需要再听到WOW的声音和画面,人物照样可以继续刷战场咯~
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const WM_KEYDOWN = &H100
Const WM_KEYUP = &H101
Dim a As Long
这就是实现的代码!!
首先使用API函数FindWindow来抓住WOW程序的句柄
然后通过函数postmessage向游戏程序发送按键消息.
使用控件Timer来定时向程序发送消息.
呵呵,这么一下,我的世界就清净咯哇,不需要再听到WOW的声音和画面,人物照样可以继续刷战场咯~
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const WM_KEYDOWN = &H100
Const WM_KEYUP = &H101
Dim a As Long
河北行~~
作者:Winahriman 日期:2008-08-09
颠了23个小时的火车终于从成都到达了河北省会石家庄，第一印象石家庄比成都的城市建设足足可以说落后了5年以上，街道比较窄，还保留着70-80年代的大部分房屋建筑，骑着三轮的小商贩一手握着龙头，一手还拿着巴郎鼓在那很悠闲的摇着，感情是当车铃铛使唤吧！
路过华北战区烈士陵园，很安静，很祥和，这可能是我见过比较大的烈士陵园了，陵园里种着一排排的松柏，但是凌乱的杂草给人的感觉仿佛很久都无人打理似的。
这次来石家庄主要是为了做一个WEBSERVERS的接口，在接触它之前手上只有厚厚的接口文档，对这个接口该如何下手还没有丝毫的头绪，待到星期一去和对方开发人员协调后一切都会非常清晰透彻~，预计这次在石家庄逗留的时间在一周左右，下周我还要急急地赶到青海省会西宁。哎~~有的跑啦~~~
路过华北战区烈士陵园，很安静，很祥和，这可能是我见过比较大的烈士陵园了，陵园里种着一排排的松柏，但是凌乱的杂草给人的感觉仿佛很久都无人打理似的。
这次来石家庄主要是为了做一个WEBSERVERS的接口，在接触它之前手上只有厚厚的接口文档，对这个接口该如何下手还没有丝毫的头绪，待到星期一去和对方开发人员协调后一切都会非常清晰透彻~，预计这次在石家庄逗留的时间在一周左右，下周我还要急急地赶到青海省会西宁。哎~~有的跑啦~~~
使用C#写的一个配置文件操作类
作者:Winahriman 日期:2008-07-10
using System;
using System.IO;
using System.Collections;
using System.Text;
using System.Data;
using System.Text.RegularExpressions;
using System.Runtime.InteropServices;
public class Test_Ini
{
#region 导入DLL函数
[DllImport("kernel32.dll")]
public extern static int GetPrivateProfileIntA(string segName, string keyName, int iDefault, string fileName);
[DllImport("kernel32.dll")]
public extern static int GetPrivateProfileStringA(string segName, string keyName, string sDefault, StringBuilder retValue, int nSize, string fileName);
[DllImport("kernel32.dll")]
using System.IO;
using System.Collections;
using System.Text;
using System.Data;
using System.Text.RegularExpressions;
using System.Runtime.InteropServices;
public class Test_Ini
{
#region 导入DLL函数
[DllImport("kernel32.dll")]
public extern static int GetPrivateProfileIntA(string segName, string keyName, int iDefault, string fileName);
[DllImport("kernel32.dll")]
public extern static int GetPrivateProfileStringA(string segName, string keyName, string sDefault, StringBuilder retValue, int nSize, string fileName);
[DllImport("kernel32.dll")]
发一则招聘：招聘软件研发工程师（VB,C#方向）
作者:Winahriman 日期:2008-07-10
成都市科陆洲电子有限公司位于成都市武侯高新科技园内，该公司成立于2006年10月，是继深圳市科陆电子科技股份有限公司上市后(股票代码：002121)在成都成立的的一家全资子公司，公司以电力设备的开发与销售，系统集成为主要经营项目。
深圳市科陆电子科技股份有限公司是一家专业从事用电管理系统、电子式电能表、标准仪器仪表及软件产品的研发、制造及销售的企业，其产品广泛应用于全国各地的电厂、电站、供电局、变电所及电力计量、监督和管理部门，并出口东南亚、南美、欧洲等地，在我国综合市场占有率达到30%以上，是名副其实的电力行业的“小巨人”。作为我国电力行业第一家设立 企业博士后科研工作站 的民营企业，科陆电子掌握着本行业最先进的核心技术，是国内高端电能表产业的开拓者、国产标准仪器设备的第一品牌，并自主开发并承担了多项 国家 863 计划项目 和 国家火炬计划项目 ，公司全面采用国际、国内先进的电子、通信和信息技术，独立开发、自主研制并生产了 60 多种主要产品，公司拥有几十项国家专利和软件著作权，产品全部具有自主知识产权。公司现已成功引入了国外最先进的信息化手段MRPII制造资源计划系统、CRM客户关系管理系统和ERP资源管理计划，管理全面与国际接轨。
2007年3月，深圳市科陆电子科技股份有限公司在深圳证券交易所隆重上市，为进一步打开西部市场，科陆电子决定在成都选址，建立一个中国西部地区规模较大的电力设备研发及生产基地，更好的为西部及全国客户服务。
公司尊重人才，有良好的发展前景和待遇，欢迎有远大志向的人才加盟。公司网址:www.szclou.com
1.精通VB,了解C#,有1年以上工作经验.
2.欢迎有培养潜力的应届毕业生.
3.本科及以上学历.
4.愿意出差.
5.有电力行业软件开发经验者优先.
注:不符合上述要求的请勿投递简历.
深圳市科陆电子科技股份有限公司是一家专业从事用电管理系统、电子式电能表、标准仪器仪表及软件产品的研发、制造及销售的企业，其产品广泛应用于全国各地的电厂、电站、供电局、变电所及电力计量、监督和管理部门，并出口东南亚、南美、欧洲等地，在我国综合市场占有率达到30%以上，是名副其实的电力行业的“小巨人”。作为我国电力行业第一家设立 企业博士后科研工作站 的民营企业，科陆电子掌握着本行业最先进的核心技术，是国内高端电能表产业的开拓者、国产标准仪器设备的第一品牌，并自主开发并承担了多项 国家 863 计划项目 和 国家火炬计划项目 ，公司全面采用国际、国内先进的电子、通信和信息技术，独立开发、自主研制并生产了 60 多种主要产品，公司拥有几十项国家专利和软件著作权，产品全部具有自主知识产权。公司现已成功引入了国外最先进的信息化手段MRPII制造资源计划系统、CRM客户关系管理系统和ERP资源管理计划，管理全面与国际接轨。
2007年3月，深圳市科陆电子科技股份有限公司在深圳证券交易所隆重上市，为进一步打开西部市场，科陆电子决定在成都选址，建立一个中国西部地区规模较大的电力设备研发及生产基地，更好的为西部及全国客户服务。
公司尊重人才，有良好的发展前景和待遇，欢迎有远大志向的人才加盟。公司网址:www.szclou.com
1.精通VB,了解C#,有1年以上工作经验.
2.欢迎有培养潜力的应届毕业生.
3.本科及以上学历.
4.愿意出差.
5.有电力行业软件开发经验者优先.
注:不符合上述要求的请勿投递简历.
