用Vb写的简单屏幕保护，不过看上去很不错，很多星星从屏幕中央爆炸开来，像天女像散花一样，一波接一波的爆开，晃动鼠标的话立即消失。所以在测试的时候不要碰到鼠标。部分代码说明：星星与边缘的距离 = ((屏幕最长半径) - (星星(残片ID).距离)) * (1.47)

　　颜色 = RGB((星星与边缘的距离), (星星与边缘的距离), (星星与边缘的距离))

　　Call 设置文字颜色((Me.hdc), (颜色))

　　Call 打印文本((Me.hdc), (坐标.X), (坐标.Y), (Chr((-24081) - (星星(残片ID).星星类型))), LenB(Chr((-24081) - (星星(残片ID).星星类型))))。-Vb write with a simple screen saver, but it looks very good, a lot of stars to explode from the center of the screen, the same as the day women like scatter flowers, wave after wave burst open, shake the mouse, then immediately disappear. So when the test do not touch the mouse. Part of the code descr iption: Stars and edge distance = (. (Screen longest radius)- (star (fragments ID) distance))* (1.47)

Color = RGB ((distance from the edge of the stars), (distance from the edge of the stars), (from the stars and the edge of the))

Call set the text color ((Me.hdc), (color))

Call printed text ((Me.hdc), (coordinates X), (coordinate Y), (Chr ((-24081)-... (Star (fragments ID) star type))), LenB (Chr ((-24081 )-. (star (fragments ID) star type)))).