vb.net做一个MSN灌水机

2023-10-20 06:50
文章标签 net vb msn 灌水

本文主要是介绍vb.net做一个MSN灌水机，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

Public   Class Form1
    Inherits System.Windows.Forms.Form


Windows 窗体设计器生成的代码

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'If lbxprocess.SelectedItem = "" Then
            ' MessageBox.Show(lbxprocess.Items(0))
            'End If

        If lbxprocess.Items.Count > 0 Then
            Try
                AppActivate(lbxprocess.Items(0))
                ' MessageBox.Show(txtsendtxt.Text)
                Dim i As Integer
                Dim c As Clipboard
                c.SetDataObject(txtsendtxt.Text)
                For i = 1 To CInt(txtsendtimes.Text)
                    Dim s As SendKeys
                    s.Send("^V")
                    s.Send("{Enter}")
                Next
            Finally
                'MessageBox.Show("Error!")
            End Try
        Else
            Call getProcessList()
        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Button2_Click(Me, e)
    End Sub

    Private Sub getProcessList()
        Dim p As Process()
        Dim inst As Process
        p = Process.GetProcessesByName("msnmsgr")
        lbxprocess.Items.Clear()
        For Each inst In p
            If inst.MainWindowTitle <> "MSN Messager" Then
                lbxprocess.Items.Add(inst.MainWindowTitle)
            End If
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim p As Process()
        Dim inst As Process
        p = Process.GetProcessesByName("msnmsgr")
        lbxprocess.Items.Clear()
        For Each inst In p
            If inst.MainWindowTitle <> "MSN Messager" Then
                lbxprocess.Items.Add(inst.MainWindowTitle)
            End If
        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Timer1.Enabled = False Then
            txtsendtimes.Text = "1"
            Timer1.Interval = CType(txttimer.Text, Integer) * 1000
            Timer1.Enabled = True
            Button3.Text = "停止"
        Else
            Timer1.Enabled = False
            Button3.Text = "开始"
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Call Button1_Click(Me, e)
    End Sub
End Class
 

这篇关于vb.net做一个MSN灌水机的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！


http://www.chinasem.cn/article/245424。

相关文章

.NET利用C#字节流动态操作Excel文件

.NET利用C#字节流动态操作Excel文件

《.NET利用C#字节流动态操作Excel文件》在.NET开发中,通过字节流动态操作Excel文件提供了一种高效且灵活的方式处理数据,本文将演示如何在.NET平台使用C#通过字节流创建,读取,编辑及保... 目录用C#创建并保存Excel工作簿为字节流用C#通过字节流直接读取Excel文件数据用C#通过字节
阅读更多...
poj 1258 Agri-Net（最小生成树模板代码）

poj 1258 Agri-Net（最小生成树模板代码）

感觉用这题来当模板更适合。 题意就是给你邻接矩阵求最小生成树啦。~ prim代码：效率很高。172k...0ms。 #include<stdio.h>#include<algorithm>using namespace std;const int MaxN = 101;const int INF = 0x3f3f3f3f;int g[MaxN][MaxN];int n
阅读更多...
如何在Visual Studio中调试.NET源码

如何在Visual Studio中调试.NET源码

今天偶然在看别人代码时，发现在他的代码里使用了Any判断List<T>是否为空。 我一般的做法是先判断是否为null，再判断Count。 看了一下Count的源码如下： 1 [__DynamicallyInvokable]2 public int Count3 {4 [__DynamicallyInvokable]5 get
阅读更多...
2、PF-Net点云补全

2、PF-Net点云补全

2、PF-Net 点云补全 PF-Net论文链接：PF-Net PF-Net （Point Fractal Network for 3D Point Cloud Completion）是一种专门为三维点云补全设计的深度学习模型。点云补全实际上和图片补全是一个逻辑，都是采用GAN模型的思想来进行补全，在图片补全中，将部分像素点删除并且标记，然后卷积特征提取预测、判别器判别，来训练模型，生成的像
阅读更多...
用VB创建开始菜单快捷方式(无需其他DLL)

用VB创建开始菜单快捷方式(无需其他DLL)

Option Explicit 　　Private Sub Command1_Click() 　　CreateProgManGroup Me, "测试", "test.grp" 　　CreateProgManItem Me, "d:\ghost.exe", "Ghost" 　　CreateProgManItem Me, "d:\setupQQ.exe", "QQ" 　　End
阅读更多...
.NET 自定义过滤器 - ActionFilterAttribute

.NET 自定义过滤器 - ActionFilterAttribute

这个代码片段定义了一个自定义的 ASP.NET Core 过滤器（GuardModelStateAttribute），用于在控制器动作执行之前验证模型状态（ModelState）。如果模型状态无效，则构造一个 ProblemDetails 对象来描述错误，并返回一个 BadRequest 响应。 代码片段： /// <summary>/// 验证 ModelState 是否有效/// </
阅读更多...
VB和51单片机串口通信讲解（只针对VB部分）

VB和51单片机串口通信讲解（只针对VB部分）

标记：该篇文章全部搬自如下网址：http://www.crystalradio.cn/thread-321839-1-1.html，谢谢啦            里面关于中文接收的部分，大家可以好好学习下，题主也在研究中................... Commport；设置或返回串口号。 SettingS：以字符串的形式设置或返回串口通信参数。 Portopen：设置或返回串口
阅读更多...
VB项目中必需的几点技巧

VB项目中必需的几点技巧

1.    点击右上角的关闭按钮，要弹出“提示”，是否关闭，但用右键关闭时，不能重复提示 在vb中找到这个事件Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)If MsgBox("是否要退出", vbYesNo + vbDefaultButton2, "提示") = vbNo ThenCancel
阅读更多...
.Net Mvc-导出PDF-思路方案

.Net Mvc-导出PDF-思路方案

效果图： 导语：     在我们做项目的过程中，经常会遇到一些服务性的需求，感到特别困扰，明明实用的价值不高，但是还是得实现；     因此小客在这里整理一下自己导出PDF的一些思路，供大家参考。     网上有很多导出PDF运用到的插件，大家也可以看看其他插件的使用，学习学习； 提要：     这里我使用的是-iTextSharp，供大家参考参考，借鉴方案，完善思路，补充自己，一起学习
阅读更多...
.net MVC 导出Word--思路详解

.net MVC 导出Word--思路详解

序言：          一般在项目的开发过程中，总会接收到一个个需求，其中将数据转换成Work来下载，是一个很常见的需求；          那么，我们改如何处理这种需求，并输出实现呢？          在做的过程中，去思考 1、第一步：首先确认，Work的存在位置，并创建字符输出路：             //在的项目中创建一个存储work的文件夹             string
阅读更多...

Copyright China编程 23002807@qq.com

沪ICP备2023033072号-2