WinAhriman's VB Home

使用VB+SoapToolKit3.0的一点点心得！

winahriman@163.com(Winahriman) — Sun,24 Aug 2008 00:04:54 +0800

在使用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服务的。那我们该如何加这个头呢！！！

呵呵，待续，累了，明天再写如何来加入这个头文件！！！

翻到一个以前无聊玩WOW时挂战场的小程序

winahriman@163.com(Winahriman) — Sat,23 Aug 2008 23:48:28 +0800

一年前玩魔兽,耍上瘾了,跟到别人刷战场,由于魔兽的特殊原因,超过一定时间就会自动被踢下线,为了能挂机,就只有使用按键精灵之类的东西时不时让游戏人物动一下.这样才不会掉线!呵呵,但是这样的话就会把我的电脑完全占用了,其他什么事都不能做.为了不影响我做其他的事情,把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

Private Sub Command1_Click()
Timer1.Interval = CInt(Text1.Text) * 1000
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
a = FindWindow("GxWindowClassD3d", "魔兽世界")
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Call PostMessage(a, WM_KEYDOWN, 32, 0)
Call PostMessage(a, WM_KEYUP, 32, 0)
End Sub

该程序可以说无任何技术含量，o(∩_∩)o...，无聊时间发点无聊的东西！！

河北行~~

winahriman@163.com(Winahriman) — Sat,09 Aug 2008 23:02:51 +0800

       颠了23个小时的火车终于从成都到达了河北省会石家庄，第一印象石家庄比成都的城市建设足足可以说落后了5年以上，街道比较窄，还保留着70-80年代的大部分房屋建筑，骑着三轮的小商贩一手握着龙头，一手还拿着巴郎鼓在那很悠闲的摇着，感情是当车铃铛使唤吧！
     路过华北战区烈士陵园，很安静，很祥和，这可能是我见过比较大的烈士陵园了，陵园里种着一排排的松柏，但是凌乱的杂草给人的感觉仿佛很久都无人打理似的。
     这次来石家庄主要是为了做一个WEBSERVERS的接口，在接触它之前手上只有厚厚的接口文档，对这个接口该如何下手还没有丝毫的头绪，待到星期一去和对方开发人员协调后一切都会非常清晰透彻~，预计这次在石家庄逗留的时间在一周左右，下周我还要急急地赶到青海省会西宁。哎~~有的跑啦~~~

使用C#写的一个配置文件操作类

winahriman@163.com(Winahriman) — Thu,10 Jul 2008 09:47:56 +0800

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")]
    public extern static int GetPrivateProfileSectionA(string segName, byte[] sData, int nSize, string fileName);
    [DllImport("kernel32.dll")]
    public extern static int WritePrivateProfileSectionA(string segName, byte[] sData, string fileName);
    [DllImport("kernel32.dll")]
    public extern static int WritePrivateProfileStringA(string segName, string keyName, string sValue, string fileName);
    [DllImport("kernel32.dll")]
    public extern static int GetPrivateProfileSectionNamesA(byte[] vData, int iLen, string fileName);
    #endregion

    private string sTr_Path;

    public Test_Ini(string vPath)
    {
        sTr_Path = vPath;
    }

    public ArrayList getSectionName()
    {
        byte[] Byt_Ini=new byte[32767];
        string sTr_Tmp;
        int iPos=0;
        ArrayList Ini_Names=new ArrayList();

        int rel=GetPrivateProfileSectionNamesA(Byt_Ini, 32767, sTr_Path);
        if (rel > 0)
        {
            for (int i = 0; i < rel; i++)
            {
                if (Byt_Ini[i] == 0X00)
                {
                    sTr_Tmp = System.Text.ASCIIEncoding.Default.GetString(Byt_Ini, iPos, i);
                    iPos = i + 1;
                    if (sTr_Tmp != "")
                        Ini_Names.Add(sTr_Tmp.ToString());
                }
            }

        }
        return Ini_Names;
    }

    public ArrayList getSectionKeyValue(string Section)
    {
        byte[] Byt_Ini = new byte[32767];
        string sTr_Tmp;
        int iPos = 0;
        string[] Arr_Tmp;
        ArrayList Ini_Keys = new ArrayList();

        int rel = GetPrivateProfileSectionA(Section, Byt_Ini, 32767, sTr_Path);
        if (rel>0)
        {
            for(int i=0;i            {
                if (Byt_Ini[i] == 0x00)
                {
                    sTr_Tmp=System.Text.ASCIIEncoding.Default.GetString(Byt_Ini,iPos,i);
                    iPos=i+1;
                    if(sTr_Tmp!="")
                    {
                        Arr_Tmp=Regex.Split(sTr_Tmp.ToString(), "=");
                        if (Regex.IsMatch(Arr_Tmp[0].ToString(), "\\\\") == false)       //找到双斜杠就不加入关键字
                            Ini_Keys.Add( Arr_Tmp[0].ToString());
                    }
                }
            }

        }
        return Ini_Keys;
    }

    public string getKeyValue(string SectionName,string SectionKey, string sDefault)
    {
        StringBuilder Buff=new StringBuilder(255);
        //string sTr_Tmp="";

        int rel = GetPrivateProfileStringA(SectionName, SectionKey, sDefault, Buff, 255, sTr_Path);
        //if (rel > 0)
        //{
        //    for (int i = 0; i < rel; i++)
        //        sTr_Tmp = sTr_Tmp + Buff[i];
        //}
        return Buff.ToString();
    }

    public bool RemoveSection(string SectionName)
    {
        try
        {
            WritePrivateProfileStringA(SectionName,null, null, sTr_Path);
            return true;
        }
        catch (Exception e)
        {
            System.Windows.Forms.MessageBox.Show(e.Message.ToString());
            return false;
        }
    }

    public bool CreateSection(string SectionName)
    {
        try
        {
            StreamWriter Ini_File = null;
            Ini_File=File.AppendText(sTr_Path);
            Ini_File.WriteLine("[" + SectionName + "]");
            Ini_File.Close();
            return true;
        }
        catch (Exception e)
        {
            System.Windows.Forms.MessageBox.Show(e.Message.ToString());
            return false;
        }

    }

}

还没写全，还差一个删除键，修改键值，修改键名。这三条函数没写。

发一则招聘：招聘软件研发工程师（VB,C#方向）

winahriman@163.com(Winahriman) — Thu,10 Jul 2008 09:26:48 +0800

     成都市科陆洲电子有限公司位于成都市武侯高新科技园内，该公司成立于2006年10月，是继深圳市科陆电子科技股份有限公司上市后(股票代码：002121)在成都成立的的一家全资子公司，公司以电力设备的开发与销售，系统集成为主要经营项目。

    深圳市科陆电子科技股份有限公司是一家专业从事用电管理系统、电子式电能表、标准仪器仪表及软件产品的研发、制造及销售的企业，其产品广泛应用于全国各地的电厂、电站、供电局、变电所及电力计量、监督和管理部门，并出口东南亚、南美、欧洲等地，在我国综合市场占有率达到30%以上，是名副其实的电力行业的“小巨人”。作为我国电力行业第一家设立企业博士后科研工作站的民营企业，科陆电子掌握着本行业最先进的核心技术，是国内高端电能表产业的开拓者、国产标准仪器设备的第一品牌，并自主开发并承担了多项国家 863 计划项目和国家火炬计划项目，公司全面采用国际、国内先进的电子、通信和信息技术，独立开发、自主研制并生产了 60 多种主要产品，公司拥有几十项国家专利和软件著作权，产品全部具有自主知识产权。公司现已成功引入了国外最先进的信息化手段MRPII制造资源计划系统、CRM客户关系管理系统和ERP资源管理计划，管理全面与国际接轨。

        2007年3月，深圳市科陆电子科技股份有限公司在深圳证券交易所隆重上市，为进一步打开西部市场，科陆电子决定在成都选址，建立一个中国西部地区规模较大的电力设备研发及生产基地，更好的为西部及全国客户服务。

      公司尊重人才，有良好的发展前景和待遇，欢迎有远大志向的人才加盟。公司网址:www.szclou.com

1.精通VB,了解C#,有1年以上工作经验.
2.欢迎有培养潜力的应届毕业生.
3.本科及以上学历.
4.愿意出差.
5.有电力行业软件开发经验者优先.
注:不符合上述要求的请勿投递简历.

电话联系：(028)85366737
发送邮件：cdclou@163.com
面试
邮寄简历：成都市武侯区武科东三路9号4栋三楼
其它应聘要求：本公司是上市公司子公司，待遇极优，发展前景美好，欢迎有志向朋友加入。

注：转正后,公司提供相应的餐补,房补,五险

我老早以前写的那个恶作剧程序

winahriman@163.com(Winahriman) — Sun,15 Jun 2008 13:57:53 +0800

这程序绝对不是病毒,所以大家可以放心使用.呵呵,运行后出现任何事情都不要慌张,实在受不了,还有释放程序,可以清除掉程序,呵呵~~~

这次发的是源代码，写的不好，完全是在乱整，o(∩_∩)o...，想玩的朋友可以下下来自己编译使用使用，可以用来逗逗别人。该文件只允许会员下载! 登录 | 注册

最近太忙，忙的昏天黑地

winahriman@163.com(Winahriman) — Sun,15 Jun 2008 13:46:47 +0800

一直在制作公司安排的一个程序，光测试版到现在都还没有完成，哎，廉颇老矣尚能饭否。。。。。。。。。。
贴一个搞了2天才搞好的界面，包括界面整个事件流程。

现在正在使用XML结合数据库才进行数据存储的程序制作，意义在于在整个系统流程中不需要操作数据库，而是只需要在XML文档中进行操作，并利用一个进程外组件操作XML文档实现自动存档，在整个系统流程结束后才将需要的数据转存到数据库中。。。。。
过段时间再把整个流程思路写一下，最近实在太忙，连BLOG都没时间更新，每每想写些什么却总抽不出时间来整理些有价值的程序。

成都地震

winahriman@163.com(Winahriman) — Tue,13 May 2008 21:30:42 +0800

     5.12不能忘记的一天。
   下午2：20分
    我正在做一个程序界面，给同事演示该界面功能。。。。。。
   下午2：27分
    没有任何预兆，刚喝了口水，正在调整代码，突然有人大喊：谁在摇桌子！紧接着地面开始剧烈的左右晃动，我一声大喊：地震了，大家快下楼。办公室同事开始往楼梯间奔跑。
    在楼梯间地面摇晃更加剧烈，楼梯间的墙面开始裂缝，发出“咔。咔。咔”的声音，跑到一楼门口时，楼道顶部开始脱落膏灰。
    跑到楼外，任然有强烈的地面摇动的感觉，能清楚看见房屋的晃动，玻璃在剧烈晃动中发出“哗哗”的声响。
    下午2：31分
     地面震动消失，大家纷纷拿出手机开始询问家人情况，2分钟后，通讯中断，电话无法打出。
    下午3：30分
     驱车往家里赶，路面交通混乱，原本25分钟的回家路总共用时1个半小时。
    下午5：00分
     花园、街道中央、公路绿化带中，到处都可见为了躲避地震的市民，路面交通逐渐恢复正常。

     从昨天晚上到现在地面任然时不时的会发生震动，目前任然有很多市民在大街上搭棚过夜，就在我写这个BLOG的时候，才发生了又一次有很强感觉的余震。外面大雨磅礴，希望今夜在外露宿的人安好~~~

长春行

winahriman@163.com(Winahriman) — Wed,23 Apr 2008 00:54:55 +0800

从山东到长春已经快一周了，但是对这座城市还是没有什么印象，可能是太忙的缘故，每天就是一条线，也没有过多的时间去留意这座城市。只是第一次知道一条街居然可以排出3000多门牌号出来~不知道他是怎么算的~~
这几天很热，感觉就像夏天，最高时候的温度据说已经到了29，这好像并不是这个季节应该有的温度。这的风很大，而且是随时都可能刮起一阵大风，前天在大街上散了下步，一阵大风刮来，那力道感觉是只要我稍不用力都可以把我抛上天似的，o(∩_∩)o...，稍微有点夸张！！
问了当地人知道这里有净月坛，伪皇宫，当然最出名的是长春电影城咯，不过去那一趟可不便宜啊，据说240一张门票，呵呵有机会去逛逛，说不定还可跑个龙套什么的.^_^~。

山东行

winahriman@163.com(Winahriman) — Mon,14 Apr 2008 00:02:33 +0800

      出差到山东一晃眼都一周了，对这地方没什么特别印象深刻的东西，在济南就是灰大，风大，城市建设乱。对了治安还比较好。
    在去潍坊的路上，感觉这边的公路的确修的不错，四周地势也特平，没有象四川那样到处都是山，这点倒是令我在旅途中感觉到很舒服。
    到了潍坊，这城市的建设感觉上比济南好的很多，可能是我在济南的时候没走完整个济南的缘故吧。潍坊的风也特大，而且刮风的时候很冷，在潍坊让我知道了什么叫火烧，o(∩_∩)o...，就是我们叫的锅盔，知道了什么叫和乐（虽然没敢吃），知道了什么叫朝天锅（味道还不错）。
    。。。。。。。。。。。。。。。。。