能运行的简单的小代码，简单又实用的代码
其实能运行的简单的小代码的问题并不复杂，但是又很多的朋友都不太了解简单又实用的代码，因此呢，今天小编就来为大家分享能运行的简单的小代码的一些知识，希望可以帮助到大家，下面我们一起来看看这个问题的分析吧！
求一个简单又有趣的JAVA小游戏代码
具体如下：
连连看的小源码
package Lianliankan;
import javax.swing.*;
import java.awt.*;
import java.awt.event.*;
public class lianliankan implements ActionListener
{
JFrame mainFrame;//主面板
Container thisContainer;
JPanel centerPanel,southPanel,northPanel;//子面板
JButton diamondsButton[][]= new JButton[6][5];//游戏按钮数组
JButton exitButton,resetButton,newlyButton;//退出，重列，重新开始按钮
JLabel fractionLable=new JLabel("0");//分数标签
JButton firstButton,secondButton;//
分别记录两次62616964757a686964616fe59b9ee7ad9431333335326239被选中的按钮
int grid[][]= new int[8][7];//储存游戏按钮位置
static boolean pressInformation=false;//判断是否有按钮被选中
int x0=0,y0=0,x=0,y=0,fristMsg=0,secondMsg=0,validateLV;//游戏按钮的位置坐标
int i,j,k,n;//消除方法控制
代码（code）是程序员用开发工具所支持的语言写出来的源文件，是一组由字符、符号或信号码元以离散形式表示信息的明确的规则体系。
对于字符和Unicode数据的位模式的定义，此模式代表特定字母、数字或符号（例如 0x20代表一个空格，而 0x74代表字符“t”）。一些数据类型每个字符使用一个字节；每个字节可以具有 256个不同的位模式中的一个模式。
在计算机中，字符由不同的位模式（ON或 OFF）表示。每个字节有 8位，这 8位可以有 256种不同的 ON和 OFF组合模式。对于使用 1个字节存储每个字符的程序，通过给每个位模式指派字符可表示最多 256个不同的字符。2个字节有 16位，这 16位可以有 65,536种唯一的 ON和 OFF组合模式。使用 2个字节表示每个字符的程序可表示最多 65,536个字符。
单字节代码页是字符定义，这些字符映射到每个字节可能有的 256种位模式中的每一种。代码页定义大小写字符、数字、符号以及!、@、#、%等特殊字符的位模式。每种欧洲语言（如德语和西班牙语）都有各自的单字节代码页。
虽然用于表示 A到 Z拉丁字母表字符的位模式在所有的代码页中都相同，但用于表示重音字符（如"é"和"á"）的位模式在不同的代码页中却不同。如果在运行不同代码页的计算机间交换数据，必须将所有字符数据由发送计算机的代码页转换为接收计算机的代码页。如果源数据中的扩展字符在接收计算机的代码页中未定义，那么数据将丢失。
如果某个数据库为来自许多不同国家的客户端提供服务，则很难为该数据库选择这样一种代码页，使其包括所有客户端计算机所需的全部扩展字符。而且，在代码页间不停地转换需要花费大量的处理时间。
给我提供个小游戏的C 语言代码
本原代码是基于C语言的原程序。是经典中的小游戏。-primitive code is based on the C language of the original procedure. Classic is a small game.
一个小游戏，用C语言编写的：俄罗斯方块．C原码及应用程序都在里面哦-a small game using the C language: Russian cubes. The original C code and application procedures inside oh
十全十美游戏原程序,c语言-perfect game program, language c
上数据结构时，自己用C语言做的小游戏，做得不好，请大家原谅。-structure on the data they used C language to the small games, done well, please forgive me.
大家都耍过文曲星中的猜数字的游戏吧！！最近我在学习C语言。写了个菜鸟的C语言的猜数字的游戏程序的原代码-rings off the viewing of the game!! I recently learning C language. Wrote a birdie C language viewing of the games original code procedures
这是我在大学二年级学习C语言课程时，作为“练笔”而编写的一个小程序（当时在我眼里可却是一个大程序！）其主要特点有：1、正真做到了全中文界面（不需要UCDOS操作系支持） 2、大量的图形特技（如图像的显隐技术、图像穿插技术、多任务仿真技术等） 3、纯C语言打造（不含任何C++知识） 4、实现了街机“俄罗斯方块”绝大部分功能（如动画、声音、速度变化） 5、用户可根据自据的习惯自由地调整“游戏操作键” 6、方法独特，全部语句和技术都是我本人原创，没有参考过任何相关代码 7、防“跟踪调试”技术，防“版权篡改”技术 8、……-
这个程序是模仿Windows中的扫雷小游戏制作的，该程序只是实现了扫雷游戏的主体部分，诸如计分、升级部分都没有做。这个程序可以作为初学者学习C语言绘图和游戏的实例。该程序在Turbo C2.0下编译通过由于扫雷游戏是用鼠标操作的，而Turbo C中提供的鼠标驱动程序在Windows xp下不可用，所以我随源程序提供了一个鼠标驱动的头文件，须将将该头文件复制到Turbo C2.0的安装目录下的“include”文件夹中方可编译或运行，也可自行修改原文件使之包含该投文件。注：该鼠标驱动程序是我在网上找到的，其出处我已无法考证，如果侵犯了作者的权利还请作者与我联系。由于在我的电脑上Turbo C图形环境下显示数字会有问题（估计是系统问题），所以程序中雷周围的数字1-8我用a-h代替，看不顺眼的可以自己修改原程序。-
c语言猜拳游戏的原代码就是这个已经测试成功了呀-language of the original game is the code has been tested successfully ah
俄罗斯方块对战版c语言原代码。希望大家能喜欢。是比较简单的一个代码，游戏开发高手请指教。-Tetris screen version of the original C language code. Hope you will like. It is a relatively simple code, game development experts please advise.
用linuX下的C语言运用CURSES编写的俄罗斯方块游戏，很好，这个是本人原创，值得参考-linuX use the C language CURSES prepared by the Russian box game, well, this is the original, worthy of reference
求简单的vbs代码
个人收藏的，给你了。
1.VBS获取路径集合
1.1.VBS获取系统安装路径
程序代码
set WshShell= WScript.CreateObject("WScript.Shell")
strWinDir= WshShell.ExpandEnvironmentStrings("%WinDir%")
上面的代码意思是先定义这个变量是获取系统安装路径的，然后我们用"&strWinDir&"调用这个变量。
1.2.C:\Program Files路径
程序代码
msgbox CreateObject("WScript.Shell").ExpandEnvironmentStrings("%ProgramFiles%")
1.3.C:\Program Files\Common Files路径
程序代码
msgbox CreateObject("WScript.Shell").ExpandEnvironmentStrings("%CommonProgramFiles%")
2.给桌面添加网址快捷方式
程序代码
set gangzi= WScript.CreateObject("WScript.Shell")
strDesktop= gangzi.SpecialFolders("Desktop")
set oShellLink= gangzi.CreateShortcut(strDesktop&"\Internet Explorer.lnk")
oShellLink.TargetPath=""
oShellLink.Description="Internet Explorer"
oShellLink.IconLocation="%ProgramFiles%\Internet Explorer\iexplore.exe, 0"
oShellLink.Save
3.给收藏夹添加网址
程序代码
Const ADMINISTRATIVE_TOOLS= 6
Set objShell= CreateObject("Shell.Application")
Set objFolder= objShell.Namespace(ADMINISTRATIVE_TOOLS)
Set objFolderItem= objFolder.Self
Set objShell= WScript.CreateObject("WScript.Shell")
strDesktopFld= objFolderItem.Path
Set objURLShortcut= objShell.CreateShortcut(strDesktopFld&"\小游戏网站.url")
objURLShortcut.TargetPath=""
objURLShortcut.Save
4.删除指定目录指定后缀文件
程序代码
On Error Resume Next
Set fso= CreateObject("Scripting.FileSystemObject")
fso.DeleteFile"C:\*.vbs", True
Set fso= Nothing
上面代码为删除C盘根目录下后缀为vbs的文件
5.VBS改主页
程序代码
Set oShell= CreateObject("WScript.Shell")
oShell.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page",""
6.VBS加启动项
程序代码
Set oShell=CreateObject("Wscript.Shell")
oShell.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\cmd","cmd.exe"
7.VBS复制自己
程序代码
set copy1=createobject("scripting.filesystemobject")
copy1.getfile(wscript.scriptfullname).copy("c:\huan.vbs")
复制自己到C盘的huan.vbs
程序代码
set copy1=createobject("scripting.filesystemobject")
copy1.getfile("game.exe").copy("c:\gangzi.exe")
复制本vbs目录下的game.exe文件到c盘的gangzi.exe
8.VBS获取系统临时目录
程序代码
Dim fso
Set fso= CreateObject("Scripting.FileSystemObject")
Dim tempfolder
Const TemporaryFolder= 2
Set tempfolder= fso.GetSpecialFolder(TemporaryFolder)
Wscript.Echo tempfolder
9.就算代码出错依然继续执行
程序代码
On Error Resume Next
10.VBS打开网址
程序代码
Set objShell= CreateObject("Wscript.Shell")
objShell.Run("")
11.VBS发送邮件
程序代码
NameSpace=""
Set Email= CreateObject("CDO.Message")
Email.From="发件@qq.com"
Email.To="收件@qq.com"
Email.Subject="Test sendmail.vbs"
Email.Textbody="OK!"
Email.AddAttachment"C:\1.txt"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing")= 2
.Item(NameSpace&"smtpserver")="smtp.邮件服务器.com"
.Item(NameSpace&"smtpserverport")= 25
.Item(NameSpace&"smtpauthenticate")= 1
.Item(NameSpace&"sendusername")="发件人用户名"
.Item(NameSpace&"sendpassword")="发件人密码"
.Update
End With
Email.Send
12.VBS结束进程
程序代码
strComputer="."
Set objWMIService= GetObject _
("winmgmts:\\"& strComputer&"\root\cimv2")
Set colProcessList= objWMIService.ExecQuery _
("Select* from Win32_Process Where Name='Rar.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
13.VBS隐藏打开网址
13.1.部分浏览器无法隐藏打开，而是直接打开，适合主流用户使用
程序代码
createObject("wscript.shell").run"iexplore ",0
13.2.兼容所有浏览器，使用IE的绝对路径+参数打开，无法用函数得到IE安装路径，只用函数得到了Program Files路径，应该比上面的方法好，但是两种方法都不是绝对的。（本方法由刚子原创）
程序代码
Set objws=WScript.CreateObject("wscript.shell")
objws.Run"""C:\Program Files\Internet Explorer\iexplore.exe""www.baidu.com",vbhide
14.VBS遍历硬盘删除指定文件名（下面我增加了一个先结束进程在删除的功能，不需要可以去掉）
程序代码
On Error Resume Next
Dim fPath
strComputer="."
Set objWMIService= GetObject _
("winmgmts:\\"& strComputer&"\root\cimv2")
Set colProcessList= objWMIService.ExecQuery _
("Select* from Win32_Process Where Name='gangzi.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
Set objWMIService= GetObject("winmgmts:" _
&"{impersonationLevel=impersonate}!\\"& strComputer&"\root\cimv2")
Set colDirs= objWMIService. _
ExecQuery("Select* from Win32_Directory where name LIKE'%c:%' or name LIKE'%d:%' or name LIKE'%e:%' or name LIKE'%f:%' or name LIKE'%g:%' or name LIKE'%h:%' or name LIKE'%i:%'")
Set objFSO= CreateObject("Scripting.FileSystemObject")
For Each objDir in colDirs
fPath= objDir.Name&"\gangzi.exe"
objFSO.DeleteFile(fPath), True
Next
15.VBS获取网卡MAC地址
程序代码
Dim mc,mo
Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each mo In mc
If mo.IPEnabled=True Then
MsgBox"本机网卡MAC地址是:"& mo.MacAddress
Exit For
End If
Next
16.VBS获取本机注册表主页地址
程序代码
Set reg=WScript.CreateObject("WScript.Shell")
startpage=reg.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page")
MsgBox startpage
17.VBS遍历所有磁盘的所有目录，找到所有.txt的文件，然后给所有txt文件最底部加一句话。
程序代码
On Error Resume Next
Set fso= CreateObject("Scripting.FileSystemObject")
Co= VbCrLf&"路过。。。"
For Each i In fso.Drives
If i.DriveType= 2 Then
GF fso.GetFolder(i&"\")
End If
Next
Sub GF(fol)
Wh fol
Dim i
For Each i In fol.SubFolders
GF i
Next
End Sub
Sub Wh(fol)
Dim i
For Each i In fol.Files
If LCase(fso.GetExtensionName(i))="shtml" Then
fso.OpenTextFile(i,8,0).Write Co
End If
Next
End Sub
18.获取计算机所有盘符
程序代码
Set fso=CreateObject("scripting.filesystemobject")
Set objdrives=fso.Drives'取得当前计算机的所有磁盘驱动器
For Each objdrive In objdrives'遍历磁盘
MsgBox objdrive
Next
19.VBS给本机所有磁盘根目录创建文件（刚子原创）
程序代码
On Error Resume Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set gangzis=fso.Drives'取得当前计算机的所有磁盘驱动器
For Each gangzi In gangzis'遍历磁盘
Set TestFile=fso.CreateTextFile(""&gangzi&"\新建文件夹.vbs",Ture)
TestFile.WriteLine("By www.gangzi.org")
TestFile.Close
Next
20.VBS遍历本机全盘找到所有123.exe，然后给他们改名321.exe
程序代码
set fs= CreateObject("Scripting.FileSystemObject")
for each drive in fs.drives
fstraversal drive.rootfolder
next
sub fstraversal(byval this)
for each folder in this.subfolders
fstraversal folder
next
set files= this.files
for each file in files
if file.name="123.exe" then file.name="321.exe"
next
end sub
21.VBS写入代码到粘贴板（先说明一下，VBS写内容到粘贴板，网上千篇一律都是通过InternetExplorer.Application对象来实现，但是缺点是在默认浏览器为非IE中会弹出浏览器，所以费了很大的劲找到了这个代码来实现）
程序代码
str=“这里是你要复制到剪贴板的字符串”
Set ws= wscript.createobject("wscript.shell")
ws.run"mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0,true
22.QQ自动发消息（保存BVS运行即可看到效果，希望高手举一反三，刚子原创）
程序代码
On Error Resume Next
str="我是笨蛋/qq"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.run"mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0
WshShell.run"tencent://message/?Menu=yes&uin=20016964&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true
WScript.Sleep 3000
WshShell.SendKeys"^v"
WshShell.SendKeys"%s"
23.VBS隐藏文件
程序代码
Set objFSO= CreateObject("Scripting.FileSystemObject")
Set objFile= objFSO.GetFile("F:\软件大赛\show.txt")
If objFile.Attributes= objFile.Attributes AND 2 Then
objFile.Attributes= objFile.Attributes XOR 2
End If
24.VBS生成随机数（521是生成规则，不同的数字生成的规则不一样，可以用于其它用途）
程序代码
Randomize 521
point=Array(Int(100*Rnd+1),Int(1000*Rnd+1),Int(10000*Rnd+1))
msgbox join(point,"")
25.VBS删除桌面IE图标（非快捷方式）
程序代码
Set oShell= CreateObject("WScript.Shell")
oShell.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoInternetIcon",1,"REG_DWORD"
26.VBS获取自身文件名
程序代码
Set fso= CreateObject("Scripting.FileSystemObject")
msgbox WScript.ScriptName
关于能运行的简单的小代码，简单又实用的代码的介绍到此结束，希望对大家有所帮助。