易截截图软件、单文件、免安装、纯绿色、仅160KB

用vb怎么获取网页标题

http://tieba.baidu.com/f?kz=255370663
搜集到一个程序
几乎都用它来完成采集任务了!贡献出来啊,很简单滴
Function strCut(strContent, StrStart, StrEnd) As String '通用截取函数
 Dim strHtml, S1, S2 As String
 dim strstart,strend as string
 strHtml = strContent
 On Error Resume Next
 
 S1 = InStr(strHtml, StrStart) + Len(StrStart)
 S2 = InStr(S1, strHtml, StrEnd)
 strCut = Mid(strHtml, S1, S2 - S1)
 
End Function
Private Sub Form_Load()
Dim hunzi1, hunzi2 As String
hunzi1 = "<html><title>this is title</title></html>"
hunzi2 = strCut(hunzi1, "<title>", "</title>")
MsgBox hunzi2
End Sub


相关文档:

VC调用VB的dll

有静态和动态两种,静态的需要lib而动态的只需要一个dll就可以了(但是要知道函数的定义一般是头文
件)动态相对复杂一点!但是掌握了也不是很难  
  //第一步     定义函数指针就是你要调用的函数,参数必须一致,不然就内存泄露  
  typedef   HANDLE ......

vb 打印

 Private Sub PrintTxt(txt As String, ConWidth As Long, LeftPosition As Long)
    Dim str As String
    Dim str1 As String
    Dim len1 As Long
   
    str = txt
    len1 = ConWidth
  &nbs ......

VB中回调函数的一个问题

之前碰到一个问题,VB中向一个C++写的DLL中注册一个Callback,C++在调用这个Callback时有些问题,具体问题描述和下面这个帖子中的情况是一样的: http://topic.csdn.net/t/20051104/09/4370840.html
经过尝试以后发现,在VB中写的回调函数必须是用Function关键字,并且,必须要设置返回值,如下:
Public Function Callbac ......

在VB6中用CopyMemory拷贝字符串的种种猫腻(一)

本文来自此帖的冗长讨论,感谢Tiger_Zhao的全程指点和陈辉、阿勇、马云剑等很多朋友的热心参与。本文其他部分在:(二)、(三)、(四)。
 
话说VB6是个很认真细致的妈妈,它会悄没声地帮你做很多事。今天我们来说的是VB6在API调用时自动对字符串参数进行转换的“好人好事”。 
第一节 体贴的VB妈 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号