易语言泡泡堂源码（Easy language bubble Tang source）

易语言泡泡堂源码（Easy language bubble Tang source） 易语言泡泡堂源码(Easy language bubble Tang source) Version 2 Support library xplib Assembly window assembly 1 Assembly variables, window handles, integer type The assembly variable bubbles hall has run, logical type Assembly variables, errors, logic Subroutine to find the server window Local variable name, text type Local variable name 1, text type Bubble hall has run = false Name = Crazy Arcade: select server" Check window (name) Subroutine check window Parameter window name, text type Local variable Title length, integer type Local variables, window content, text type Window handle = search window (0, window name) If (window handle = 0) Title length = take window title length (window handle) Take the window (the window handle, window title, title length + 1) Bubble hall has run = true! Return () If it's over Bubble hall has run = false If true (error = true) Message box (bubble hall server window does not run. Check that the path is correct or other error reasons!" (16) If it's over Return () Subroutine window name, text type Parameter window handle, integer type Local variables are long and integer types Local variable name, text type Name length = take window title length (window handle) If (name length is less than or equal to 0) Return ([)) If it's over Name = take blank text (name long) Take the window title (window handle, name, name length + 1) Return (name) Subroutine to find the entry account window Local variables X, integer type Local variables Y, integer type Process events () Time delay (10000) Mouse migration events () If (number of people, current selection = 0) Process events () Time delay (100) X = 40065 / 2 Y = 40565 / 220 X = X * 65535, get the system scale (0) Y = Y * 65535, get the system scale (1) Mouse events (bits or (1, 32768), X, Y, 0, 0) Time delay (100) Mouse events (2, 0, 0, 0, 0) Time delay (100) Mouse events (4, 0, 0, 0, 0) Time delay (100) Set clipboard text (account number) Analog keyboard (#Ctrl key, 0, 0, 0) Analog keyboard (#V key, 0, 0, 0) Analog keyboard (#Ctrl key, 0, 2, 0) Analog keyboard (#V key, 0, 2, 0) Time delay (10) Process events () Time delay (100) X = 40065 / 2 Y = 43565 / 220 X = X * 65535, get the system scale (0) Y = Y * 65535, get the system scale (1) Mouse events (bits or (1, 32768), X, Y, 0, 0) Time delay (100) Mouse events (2, 0, 0, 0, 0) Time delay (100) Mouse events (4, 0, 0, 0, 0) Time delay (10) Set clipboard text (password) Analog keyboard (#Ctrl key, 0), 0, 0) 模拟键盘(# V键，0, 0, 0) 模拟键盘(# Ctrl键，0, 2, 0) 模拟键盘(# V键，0, 2, 0) (10)延时 模拟键盘(#回车键，0, 0, 0) 模拟键盘(#回车键，0, 2, 0) 否则。 处理事件() (100)延时 X,，?340 65 2 Y,，?，20 2 65 405 X,X×65535?获得系统尺度(0) Y,Y×65535?获得系统尺度(1) 鼠标事件(位或(1, 32768)，X，Y，0, 0) (100)延时 鼠标事件(2, 0, 0，0, 0) (100)延时 鼠标事件(4, 0, 0，0, 0) (10)延时 置剪辑板文本(帐号) 模拟键盘(# Ctrl键，0, 0, 0) 模拟键盘(# V键，0, 0, 0) 模拟键盘(# Ctrl键，0, 2, 0) 模拟键盘(# V键，0, 2, 0) (10)延时 处理事件() (100)延时 X,，?340 65 2 Y,，?，20 2 65 435 X,X×65535?获得系统尺度(0) Y,Y×65535?获得系统尺度(1) 鼠标事件(位或(1, 32768)，X，Y，0, 0) (100)延时 鼠标事件(2, 0, 0，0, 0) (100)延时 鼠标事件(4, 0, 0，0, 0) (10)延时 置剪辑板文本(密码) 模拟键盘(# Ctrl键，0, 0, 0) 模拟键盘(# V键，0, 0, 0) 模拟键盘(# Ctrl键，0, 2, 0) 模拟键盘(# V键，0, 2, 0) 处理事件() (100)延时 X,，?440 65 2 Y,，?，20 2 65 405 X,X×65535?获得系统尺度(0) Y,Y×65535?获得系统尺度(1) 鼠标事件(位或(1, 32768)，X，Y，0, 0) (100)延时 鼠标事件(2, 0, 0，0, 0) (100)延时 鼠标事件(4, 0, 0，0, 0) (10)延时 置剪辑板文本(帐号1) 模拟键盘(# Ctrl键，0, 0, 0) 模拟键盘(# V键，0, 0, 0) 模拟键盘(# Ctrl键，0, 2, 0) 模拟键盘(# V键，0, 2, 0) (10)延时 处理事件() (100)延时 X,，?440 65 2 Y,，?，20 2 65 435 X,X×65535?获得系统尺度(0) Y,Y×65535?获得系统尺度(1) 鼠标事件(位或(1, 32768)，X，Y，0, 0) (100)延时 鼠标事件(2, 0, 0，0, 0) (100)延时 鼠标事件(4, 0, 0，0, 0) (10)延时 置剪辑板文本(密码1) 模拟键盘(# Ctrl键，0, 0, 0) 模拟键盘(# V键，0, 0, 0) 模拟键盘(# Ctrl键，0, 2, 0) 模拟键盘(# V键，0, 2, 0) (10)延时 模拟键盘(#回车键，0, 0, 0) 模拟键盘(#回车键，0, 2, 0) 如果结束。 清除剪辑板() 子程序取子一级窗口。 参数父窗口，整数型。 局部变量N，整数型。 清除数组(同级窗口) N,取得窗口(父窗口，5) N,查找子窗口(父窗口，0，“静”，0) 如果真(N,0)。 返回() 如果真结束。 加入成员(同级窗口，N) 输出调试文本(到文本(n)) 判断循环首(N?0)。 ,取得窗口N(n，2) 如果真(N?0)。 加入成员(同级窗口，N) 如果真结束。 输出调试文本(到文本(n)) 判断循环尾()。 子程序_开始_被单击。 。如果真(路径框。,”) 信息框(“未选择泡泡堂游戏程序的路径～“0，) 返回() 如果真结束。 。如果真(文件是否存在(路径框。内容),假) 信息框(“泡泡堂游戏程序的路径不正确～“0，) 返回() 如果真结束。 。如果真(倒找文本(路径框。内容，“ca.exe”，假),- 1) 如果真(信息框(“泡泡堂游戏程序的路径不正确～“，#换行符，”如果你确定这个路径是泡泡堂程序路径”，#换行符，”(泡泡堂程序默认文件名ca.exe)，请按是钮。”，#是否钮，),#否钮) 返回() 如果真结束。 如果真结束。 如果真(帐密未设置,真)。 信息框(“帐号和密码未设置～“0，) 返回() 如果真结束。 写配置项(取运行目录()，”/路线。ini”、“泡泡沫1”、“泡泡堂路径”，到文本(路径框。内容)) 自动登陆() 子程序_选择路径_被单击。 通用对话框1。初始目录,取运行目录() 。如果真(通用对话框1。打开()) 路径框。内容,通用对话框文件名1。 如果真结束。 子程序_刷新_被单击。 错误提示,真 找服务器窗口() 错误提示,假 子程序刷新。 局部变量X，整数型。 找服务器窗口() 服务器列表框1清空()。 取子一级窗口(窗口句柄) 。计次循环首(取数组成员数(同级窗口)，x) 服务器列表框1。加入项目(到文本(同级窗口[X])，) 计次循环尾()。 子程序自动登陆。 局部变量N，整数型。 局部变量值，整数型。 局部变量找不到窗口，逻辑型。 处理事件() 运行(路径框。内容，假，) Unable to find window = false Count cycle head (60, n) Process events () False = false = false Time delay (1000) Find the server window () If true (bubble hall has run = true) Refresh () Jump out of circulation () If it's over If (n = 60 and the BNB has run = false) Refresh () Can't find window = true Jump out of circulation () If it's over Counting cycle tail () If true (unable to find the window = true) Return () If it's over If true (bubble hall has run = true) If true (service area. Current selection = 0) Value = 0 If it's over If true (service area. Current selection = 1) Value = 1 If it's over If true (service area. Current selection = 2) Value = 2 If it's over If true (service area. Current selection = 3) Value = 3 If it's over If true (service area. Current selection = 4) Value = 4 If it's over Time delay (10) Send a message (to the value (the server list box 1., take the project text (value)), 515, 0, 0) Process events () Time delay (1000) Find the enter password window () If it's over __ _. Subroutine startup window is created XP style (1) False = false = false Account not set = true Path box. Content = text (read configuration item (fetch run directory) + /Route.ini, bubble 1, bubble path, etc.) _. Subroutine account close by click the settings _ If true (number of people, current selection = 0) Load (window 1, true) If it's over If true (number of people, current selection = 1) Load (window 2, true) If it's over The number of items in the list. _ subroutine _ is selected Account not set = true Write configuration items (fetch directory () + /Route.ini, bubble 1, bubble number, text (number of people, current selection) _ exit _ by click the subroutine. Local variables, text, text type Destruction () __ _. Subroutine startup window will be destroyed Write the configuration item (fetch run directory () + /Route.ini, bubble bubble 1, bubble path, to text (path box, content) Write configuration items (fetch running directory (+), "/Route.ini", "bubble 1", "bubble hall service area", to text (service area, current selected item) Write configuration items (fetch directory () + /Route.ini, bubble 1, bubble number, text (number of people, current selection) End () Subroutine mouse movement events Local variables X, integer type Local variables Y, integer type If (number of people, current selection = 0) X = 15065 / 2 y , 420 ， 65 ? 2 ， 20 x x x x x x x x , 65535 ? 获得系统尺度 (0) y , y x 65535 ? 获得系统尺度 (1) 鼠标事件 (位或 (1, 32768), x, y, 0, 0) 延时 (500) 鼠标事件 (2, 0, 0, 0, 0) 延时 (100) 鼠标事件 (4, 0, 0, 0, 0) .否则 x , 520 ， 65 ? 2 y , 420 ， 65 ? 2 ， 20 x x x x x x x x , 65535 ? 获得系统尺度 (0) y , y x 65535 ? 获得系统尺度 (1) 鼠标事件 (位或 (1, 32768), x, y, 0, 0) 延时 (500) 鼠标事件 (2, 0, 0, 0, 0) 延时 (100) 鼠标事件 (4, 0, 0, 0, 0) .如果结束 .子程序 _ 关于 _ 被单击 关于窗口 , 真 载入 (窗口3, 真) .子程序 _ 帮助 _ 被单击 关于窗口 , 假 载入 (窗口3, 真) .子程序 _ 服务区 _ 列表项被选择 写配置项 (取运行目录 () ， "/ route.ini", "泡泡沫1.0", "泡 泡堂服务区", 到文本 (服务区.现行选中项))