vb实验7-找出小于18000的最大素数,一个文本框和一个按钮

———–写给女对象的题解


  1. 在窗体上画一个文本框,名称为TEXT1,八个指令按钮,C1和
    C2,标题分别为“总计”和“退出”,并编制一个函数进度isprime可以在程序中直接调用,其功效是判定参数a是不是为素数,若是是素数,则赶回True,否则再次回到False。
    请编写适当的事件进度,使得在运转时,单击“计算”按钮,则找出小于18000的最大素数,并出示在文本框中。

    • 俺们先来画窗体,拖一个TextBox,然后清空Text属性
      图片 1
      名字曾经是TEXT1了
      图片 2

    • 下一场拖四个CommandButton,修改名字为C1,C2。修改章程如上图。然后修改Caption属性值分别为“总结”和“退出”。
      附效果图:
      图片 3

    • 界面部分就大多好了。起初写判断一个树是或不是素数的函数吧。

Private Function Prime(n As Integer) As Boolean
'函数参数为Integer,如果是素数则返回True,不是则返回False
    '如果n小于2,就不是素数
    If n < 2 Then

        Prime = False

        Exit Function

    End If

    Dim i As Integer

    '先让返回值等于True
    Prime = True

    '然后检查2到根号n是不是有数能整除n
    For i = 2 To Sqr(n)

        '如果有数能被整除,就返回False
        If n Mod i = 0 Then

            Prime = False

            Exit Function

        End If

    Next i

'如果没有被前面的if查到,那就是通过了层层筛选而产生的素数
End Function
  • 函数写好了,就起来找找出小于18000的最大素数吧
    在C1_Click里面写如下代码

Dim i As Integer

'从18000开始,每次-1,(为什么不从1-18000?因为low)
For i = 18000 To 2 Step -1

    '如果找到一个,就输出到Text1,然后退出
    If Prime(i) = True Then

        Text1.Text = i

        Exit Sub

    End If

Next i

图片 4

图片 5

vb实验7-找出小于18000的最大素数

图片 6

vb实验7-找出小于18000的最大素数

图片 7

作者:suphack

图片 8

 

和校友合伙玩CS,被他菜了N盘。心有不甘,想想自己是学那个的不如做一个修改器来满意一下融洽的虚荣心。
   
要做工具,菜鸟首选vb,打开vb,新建一个标准EXE工程,添加一个标签,一个文本框和一个按钮,清除文本框的text属性,将标签和按钮的caption属性分别设为“生命”和“确定”(如图1)

图片 9


    双击按钮组件,输入如下代码:
Dim a As Long ,b As Long,c As Long
概念七个函数a ,b ,c
a = FindWindow(vbNullString, “counter-strike”)
首先获得目的窗口的句柄,并赋值给a
If (a = 0) Then
MsgBox “游戏未运行!”
Exit Sub
End If
判断FindWindow再次回到的值是还是不是为0
GetWindowThreadProcessId a, b
获取进度标识符
c = OpenProcess(PROCESS_ALL_ACCESS, False, b)
运用进程标识符取得进程句柄,并赋值给c
If (c = 0) Then
MsgBox “不能开拓进度!”
Exit Sub
End If
判断OpenProcess重临的值是还是不是为0
WriteProcessMemory c, &H19C08B0, text1.Text, 4, 0&
msgbox”修改成功”
把内存地址H19C08B0中的数据改为text1.text内的数目,H19C08B0是本人用金山游侠搜出来的CS中生命的内存地址,那不是本文的主要,我就不介绍了
CloseHandle hProcess
关门进度句柄
   
那样,修改器就着力到位了,现在我们来给它足够一个狼狈的皮肤,在工具栏上点右键选用“部件”,在弹出的窗口内采纳“浏览”,把皮肤控件添加进去(如图4,图5)

图片 10

,然后把它添加到窗体上(如图6)

http://www.bkjia.com/VBjc/525847.htmlwww.bkjia.comtruehttp://www.bkjia.com/VBjc/525847.htmlTechArticle作者:suphack
和同学一块玩CS,被他菜了N盘。心有不甘,想想自己是学那么些的不如做一个修改器来满足一下要好的虚荣心。
要做工具,菜鸟首…

图片 11

图片 12

,生成EXE文件就马到功成了,使用一下,呵呵,999的生命,效果不错啊。(如图8)


    这么些修改器中须要用到5个API函数:

  1. FindWindow(ClassName, WindowTitle) – FindWindow 再次回到符合指定的类
    名( ClassName )和窗口名( WindowTitle )的窗口句柄。对大家的话,可以让
    ClassName 为空( Null ),只给骑行戏的 WindowTitle。
  2. GetWindowThreadProcessId(WindowHandle, ProcessId) – 在那边大家把
    FindWindow 函数中取得的句柄作为参数,来得到进度标识符(ProcessId )。
  3. OpenProcess(DesiredAccess, Inherit, ProcessId) –
    那几个函数将回到一个我们目的经过的句柄,可以用来对目标展开读写操作。DesiredAccess
    参 数的值决定了句柄对进程的存取权利,对大家的话,要选拔PROCESS_ALL_ACCESS (完全存取权限)。Inherit 应该总是 False。 ProcessId
    是从 GetWindowThreadProcessId 函数中拿走的。
  4. WriteProcessMemory(ProcessHandle, Address, value, Sizeofvalue,
    BytesWritten)把指定的值value写入由Address指定的对象地点。
  5. CloseHandle(ProcessHandle) 每一个打开的句柄必须呼叫这么些函数来关闭

       
    现在大家来把那一个函数声雀巢下,。新建一个规范模块,把函数申明添加进去,限于篇幅,注脚自己就打包放在光盘里了(如图2,图3)

世家多匡助一下!

,找到它的Skinpicture属性,设置一个美观点的皮肤(如图7)

相关文章