欢迎来到路由器窝!
  • VB.net基础:如何获得并显示网上图片
    阅读
    在VB.net中,显示图片很简单: PictureBox1.Image=Image.FromFile(FileName) 但是这种办法不能用于显示Internet上的图片,因为Image.FromFile不支持URI格式。那么怎么办呢? 其实 .net为我们准备了一套很方便的方法。在.net中,网上的资源(图片,动画,声音
  • Keys 类键盘操作的常用方法
    阅读
    send_keys(Keys.BACK_SPACE) 删除键(BackSpace) send_keys(Keys.SPACE) 空格键(Space) send_keys(Keys.TAB) 制表键(Tab) send_keys(Keys.ESCAPE) 回退键(Esc) send_keys(Keys.ENTER) 回车键(Enter) send_keys(Keys.CONTROL,a) 全选(Ctrl+A) send_key
  • 获取网站代码
    阅读
    Sub 获取一般性网页代码(ByVal URLstr As String) Try Dim w As New System.Net.WebClient() 要Imports System.Net w.Proxy = Nothing 设置为无代理模式,否则首次运行会慢4秒左右。 w.CachePolicy = New Cache.RequestCachePolicy(Cache.RequestCacheLevel.
  • vb.net 正则表达式 取 html代码中的A标签的 href 链接
    阅读
    Public Sub saveAUrl(ByVal Str As String) Dim r As Regex Dim m As Match r = New Regex((?=a.*?href\s*=\s*)(?1[^]*)(?=|(?1\S+)), RegexOptions.IgnoreCase Or RegexOptions.Compiled) m = r.Match(Str) While m.Success MessageBox.Show(m.Value) m = m
  • VB.NET用正则表达提取数字
    阅读
    Dim bbb As Stringbbb = TextBox1.Text Dim My_str As String = Regex.Replace(bbb, [^0-9], ) 这里把替换所有非数字为空字符串,改为替换所有非数字为空格MsgBox(My_str)
  • 判断指定路径下是否存在指定文件
    阅读
    Dim a As String = C:\A.txtDim f As New IO.FileInfo(A)If f.Exists = True ThenMsgBox(存在)ElseMsgBox(不存在)End If
  • 错误 1 无法导入以下密钥文件: 。该密钥文件可能受密码保护
    阅读
    直接找到提示的密钥文件,双击,然后一步一步导入即可。不过一定要知道服务书的密码
  • PHP 只能在微信打开
    阅读
    ?phpheader(Content-type: text/html; charset=utf-8);$user_agent = $_SERVER[HTTP_USER_AGENT];if (strpos($user_agent, MicroMessenger) === false) {echo scriptlocation.href=weixin://dl/business/?ticket=t6baf8f945bf29b5e770d9a8141685fbd#wechat_r
  • vb.net控件隐藏
    阅读
    这隐藏控件太恶性了 今天做了一个上午,把五个GropBox迭起来然后根据选到的GropBox显示出来,其余的隐藏(visible属性=false)起来, 重点:必须把GripBox一个一个覆盖才能实现,而且必须覆盖好了 要不然有的显示出来有的显示不出来
  • 实时更新域名工具源码,VB读取网页内容实时,没缓存
    阅读
    Option Explicit Private Declare Function ShellExecute Lib shell32.dll Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd A
  • VB使用默认浏览器打开网页,VB打开网页方法
    阅读
    代码1)用 Shell函数 直接调用 explorer.exe 来打开网页 Private Sub Command1_Click() Dim strOpen strOpen = Shell(explorer.exe Text1, 1)End Sub Private Sub Form_Load() Text1 = http://www.zngps.comEnd Sub 代码2)使用 Api函数 ShellExecute实现打开
  • VB获取网页内容方法,VB读取网页内容
    阅读
    1、相关代码如下:Public Function getHtmlStr(strUrl As String) 获取远程网页源码 On Error Resume Next Dim XmlHttp As Object, stime, ntime Set XmlHttp = CreateObject(Microsoft.XMLHTTP) XmlHttp.open GET, strUrl, True XmlHttp.send stime = Now
  • vb.net2010发送邮件
    阅读
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim smtp As New System.Net.Mail.SmtpClient(smtp.126.com, 25) smtp.Credentials = New System.Net.NetworkCredential(发件邮箱, 密码) -----这里有smt
  • PHP获取二级域名前缀
    阅读
    ?php$url=http://.$_SERVER [HTTP_HOST].$_SERVER[PHP_SELF];preg_match(#http://(.*?)\.#i,$url,$match);echo str_replace(index.php, $match[1], $url);?
  • 首页
  • 1
  • 2
  • 3
  • 4
  • 下一页
  • 末页