破解版 mirroropsender.apk

MirrorOp-Sender.apk 完全破解版 无时间限制 无注册窗口（PC端不用破解,附带PC端安装程序） 全部打包在一起，exe格式文件为需要在PC端安装的程序，安装好了之后运行，然后手机端安装里面的apk文件，运行它即可连接到PC端进行同步，记得要在同一个局域网内。 Android需要开启ROOT授权，即可使用。 0分免费下载了。。

report_sender_standard.exe

report_sender_standard.exe

MirrorOp-Sender

本人在手机MK16i上测试成功完全破解版,无5分钟时间限制,无注册窗口 包括：WinReceiver.zip,MirrorOp-Sender破解版.apk,MirrorOp Sender1.0.39.apk，mirrorop sender1.0.0.7.apk

android移动设备与win平台屏幕同步软件

1.本软件应用于android手机和win平台电脑 2.通过网络连接。wifi连接。 3.支持屏幕转向。调整分辨率。 mirrorop-sender2.apk MirrorOpReceiverSetup.exe

Super Email Sender v2.109注册版(附注册机)

Super Email Sender是一款批量邮件发送工具，它支持多线程工作，从文本文件导入地址簿。

mirrorop sender 1.2.1.0真正破解版

好不容易在网上搜索到的。百度到的大多是假的。这个我测试了，是真正的破解版，没有出现注册提示窗口。不好意思，没技术，靠体力赚点分。

寝室值日安排（c++）

using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Windows.Forms; namespace 寝室值日安排 { class Tray { Form1 form = null; NotifyIcon TrayIcon = null; Label label = null; public Tray(Form1 form,NotifyIcon TrayIcon,Label label) { this.form = form; this.TrayIcon = TrayIcon; this.label = label; } public void click(object sender, System.EventArgs e) { if (this.form.Visible == true) { this.form.Hide(); } else { this.form.Visible = true; } } public void showForm(object sender, System.EventArgs e) { this.form.Visible = true; } public void hideForm(object sender, System.EventArgs e) { this.form.Hide(); } public void showTrayIcoText(object sender, System.Windows.Forms.MouseEventArgs e) { this.TrayIcon.Text = this.label.Text; } public void ExitSelect(object sender, System.EventArgs e) { this.form.Close(); } } }

vb字体设置

Public Class Form1 Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged TextBox1.Font = New Font("宋体", TextBox1.Font.Size, TextBox1.Font.Style) End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged TextBox1.Font = New Font("隶书", TextBox1.Font.Size, TextBox1.Font.Style) End Sub Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged TextBox1.Font = New Font("黑体", TextBox1.Font.Size, TextBox1.Font.Style) End Sub Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) TextBox1.Font = New Font(TextBox1.Font.FontFamily, 12, TextBox1.Font.Style) End Sub Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) TextBox1.Font = New Font(TextBox1.Font.FontFamily, 18, TextBox1.Font.Style) End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) TextBox1.Font = New Font(TextBox1.Font.FontFamily, TextBox1.Font.Size, TextBox1.Font.Style) End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) TextBox1.Font = New Font(TextBox1.Font.FontFamily, TextBox1.Font.Size, TextBox1.Font.Style) End Sub Private Sub CheckBox1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If (CheckBox1.Checked) Then TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Bold) Else TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Xor FontStyle.Bold) End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Text = "欢迎你来到东方" End Sub Private Sub CheckBox2_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged If (CheckBox1.Checked) Then TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Italic) Else TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Xor FontStyle.Italic) End If End Sub End Class

C# 短信猫开发案例支持(单口多口短信猫)

private void Sms_Receive_Button_Click(object sender, System.EventArgs e) { String ReceiveSmsStr=""; if (Sms_Receive("4", out ReceiveSmsStr) == 1) { ReceiveSms_Text.Text = ReceiveSmsStr; } else { ReceiveSms_Text.Text = "读取短信失败"; } } private void Sms_Delete_Button_Click(object sender, System.EventArgs e) { Sms_Delete (DeleteSms_Index.Text); } private void timer1_Tick(object sender, System.EventArgs e) { if (Sms_NewFlag() == 1) { NewSms_Show.Text = "收到新短信,请查收!"; } } private void Sms_Exit_Button_Click(object sender, System.EventArgs e) { Application.Exit(); }

VB课程设计.doc

VB课程设计,试验题目: 常用控件 Public Class Form1 Inherits System.Windows.Forms.Form Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load AxShockwaveFlash1.Movie = "E:\实验运行场\VB.NET程序设计\系统\image\登陆界面.swf" AxShockwaveFlash1.Play() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim frm4 As New Form4 frm4.Show() Me.Hide() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim frm6 As New Form6 frm6.Show() Me.Hide() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim frm9 As New Form9 frm9.Show() Me.Hide() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim exitform As New Form7 If exitform.ShowDialog = DialogResult.OK Then exitform.Close() Me.Close() Application.Exit() End If End Sub End Class

c# 实现p2p通信，c#p2p局域网聊天小软件源码

c#实现p2p局域网聊天小软件的源码, private void button1_Click(object sender, System.EventArgs e) { button1.Enabled = false; button2.Enabled = true; th = new Thread(new ThreadStart(Listen)); th.Start(); } private void button2_Click(object sender, System.EventArgs e) { button1.Enabled = true; button2.Enabled = false; listenerRun = false; Stop(); } private void button3_Click(object sender, System.EventArgs e) { Send(); }

Sender-receiver 消息

Sender-receiver 消息 ,还是老话，学习JMS和activemq必看资料一直

perl-Mail-Sender-0.8.16-1.el5.pp.src.rpm

perl-Mail-Sender-0.8.16-1.el5.pp.src.rpm 邮件发送依赖资源包，需通过rpm -ivh perl-Mail-Sender-0.8.16-1.el5.pp.noarch.rpm 命令进行安装

记事本 用b.net

Private Sub AxWindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Public Class Form1 Private Sub 文件ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEditCopy.Click rtBook.Copy() End Sub Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEditPaste.Click rtBook.Paste() '粘贴操作 End Sub Private Sub rtBook_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rtBook.TextChanged fsave = False '控件中的内容发生变化时，该标志为False End Sub Dim fsave As Boolean Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '为全局变量赋值 '对保存文件对话框赋初值 SaveFileDialog1.FileName = "" SaveFileDialog1.DefaultExt = "txt" SaveFileDialog1.Filter = "Text File(*.txt)|*.txt|All files(*.*)|*.*" SaveFileDialog1.Title = "保存" '对打开文件对话框赋初值 OpenFileDialog1.FileName = "" OpenFileDialog1.DefaultExt = "txt" OpenFileDialog1.Filter = "Text File(*.txt)|*.txt|All files(*.*)|*.*" OpenFileDialog1.Title = "打开" End Sub Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileNew.Click Dim num1 As Integer '如果文本已被保存，则清空rtBook内容，重置变量新建文本 If fsave Then rtBook.Clear() SaveFileDialog1.FileName = "" '文件如果还没有保存，则询问用户如何处理 Else num1 = MsgBox("文件的内容已被改变。想保存文件吗？", vbYesNoCancel + 48, "记事本") Select Case num1 '用户选择保存，而且该文件从未保存过，则执行保存文件的操作 Case 6 If SaveFileDialog1.FileName = "" Then If SaveFileDialog1.ShowDialog Then rtBook.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText) End If '如果该文件已存在，则弹出对话框，要求用户回答后再保存 End If '清空RTbook的内容，重置变量新建文本 fsave = True rtBook.Clear() SaveFileDialog1.FileName = "" Case 7 '如果用户选择不保存，则立即清空RTbook的内容，新建文本 rtBook.Clear() SaveFileDialog1.FileName = "" fsave = True Case Else '用户选择取消操作，则什么也不做，取消这次的新建操作 End Select End If End Sub Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileOpen.Click Dim num1 As Integer '如果文件内容还未保存，则弹出对话框，询问用户如何处理 If Not fsave Then num1 = MsgBox("文件的内容已被改变。想要保存文件吗？", vbYesNoCancel + 48, "记事本") Select Case num1 Case 6 '用户选择保存操作，而且该文件从未保存过，则输入文件名后进行保存 If SaveFileDialog1.FileName = "" Then If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then rtBook.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText) End If Else '若该文件已存在，则弹出对话框，用户选择保存后，直接保存 rtBook.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText) End If '弹出【打开】对话框，执行打开文件的操作 fsave = True If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then rtBook.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText) End If Case 7 '用户选择不保存文件，则直接打开文本文件 If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then rtBook.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText) fsave = True End If Case Else '用户选择了取消操作 End Select Else '文本已被保存，直接打开文件进行操作 If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then rtBook.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText) End If fsave = True End If End Sub Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileSave.Click If SaveFileDialog1.FileName = "" Then '如果文件从未保存过，则弹出对话框，输入文件名后，直接保存 If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then rtBook.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText) End If Else '若该文件以保存过，则弹出对话框后，用户选择保存后，直接保存到原文件中 rtBook.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText) End If fsave = True End Sub Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileSaveAs.Click '现将保存对话框的标题改为“另存为” SaveFileDialog1.Title = "另存为" If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then rtBook.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText) fsave = True End If '文件保存完成后，对话框标题再改为“另存” SaveFileDialog1.Title = "保存" End Sub Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click Close() End Sub Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEditUndo.Click rtBook.Undo() '用户撤消操作 End Sub Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEditCut.Click rtBook.Cut() '剪切操作 End Sub Private Sub MenuItem19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEditSelectAll.Click rtBook.SelectAll() '全选操作 End Sub Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEditDelete.Click rtBook.Cut() End Sub Private Sub MenuItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFont.Click If FontDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then rtBook.Font = FontDialog1.Font '用户选择字体 End If End Sub Private Sub MenuItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuBackcolor.Click If ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then rtBook.ForeColor = ColorDialog1.Color '选择文本的颜色 End If End Sub Private Sub MenuItem22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuForeColor.Click If ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then rtBook.BackColor = ColorDialog1.Color '选择文本框的背景颜色 End If End Sub Private Sub MenuItem23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuHelpAbout.Click Dim 关于记事本 As Integer 关于记事本 = MsgBox("我的记事本 版本：1.0 版权所有（李振，吕红飞） 2004 http://www.hbsi.com.cn") End Sub

AirScreen1.8 - AirPlay & Google Cast & Miracast APK

这个可以安装在电视盒子上的， 安卓 苹果手机都可以投到电视盒子上,投屏软件.目前最新版.此为free版有广告,若要去除广告需要订阅pro版.

MirrorOp Sender_v2.0.3.2.rar

MirrorOp Sender_v2.0.3.2.rar

学生成绩管理系统

private void Form1_Load(object sender, System.EventArgs e) { } private void button3_Click(object sender, System.EventArgs e) { Application.Exit(); } private void button2_Click(object sender, System.EventArgs e) { string Userid, Userpwd; if (Uname.Text.Trim()!=""&&UPWD;.Text.Trim()!="") { Userid = Uname.Text.Trim(); Userpwd = UPWD.Text.Trim(); DataAccess data=new DataAccess(); if (data.CheckAdmin(Userid, Userpwd)) { Constants.Username=Uname.Text.Trim(); Frmcjgl winmain=new Frmcjgl(); winmain.Show(); this.Hide(); } else { MessageBox.Show("您输入的帐号或密码有误，请重新登录！"); Uname.Text=""; UPWD.Text=""; } }

VB.NET 小游戏 打地鼠

用VB.NET做的小游戏--打地鼠 Public Class Form1 Inherits System.Windows.Forms.Form Dim pic As New PictureBox Dim goal As Integer Dim i As Integer Dim j As Integer Dim xx1() As Integer = {135, 277, 417} Dim xx2() As Integer = {157, 367} Dim xx3() As Integer = {32, 251, 482} Dim timer As Double = 1 Dim count As Integer '计时器跳动次数 Dim ifclick As Boolean Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = "小游戏" Me.Size = New Size(650, 465) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Interval = 600 Timer1.Enabled = True Button2.Visible = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If Button2.Text = "暂停" Then Button2.Text = "继续" Timer1.Enabled = False PictureBox1.Enabled = False ElseIf Button2.Text = "继续" Then Button2.Text = "暂停" Timer1.Enabled = True PictureBox1.Enabled = True End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ifclick = False PictureBox1.Enabled = True If timer = 0 Then Timer1.Enabled = False MsgBox("游戏结束，您的得分：" + goal.ToString) Button3.Visible = False Exit Sub End If addpic() timer = 10 - count * 0.5

vb.net跑表程序

Public Class Form1 Dim msec, sec, min, hour As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick msec += 1 If msec >= 100 Then msec = 0 sec += 1 ElseIf sec >= 60 Then sec = 0 min += 1 ElseIf min >= 60 Then min = 0 hour += 1 ElseIf hour >= 24 Then hour = 0 End If 'Label1.Text = IIf(hour() < 10, "0" & Trim(Str(hour)), hour) & ":" & IIf(min < 10, "0" & Trim(Str(min)), min) & ":" & IIf(sec < 10, "0" & Trim(Str(sec)), sec) Label4.Text = hour & "时" & min & "分" & sec & "秒" & msec & "毫秒" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Button1.Text = "stop" Then Button1.Text = "start" Timer1.Enabled = False Else Button1.Text = "stop" Timer1.Enabled = True End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label4.Text = "00:00:00" Label3.Text = Date.Now Timer1.Enabled = False End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Enabled = False Label4.Text = "00:00:00" End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() End Sub End Class