shareinternet.form

ShareInternet源代码,是用红旗4.1的Gambas开发的,如果没有安装Gambas的话

# Gambas Form File 1.0

{ ShareInternet Form
  Move(208,24,416,449)
  Text = ("ShareInternet")
  Icon = Picture["32.png"]
  Border = Window.Fixed
  { labname TextLabel
    Move(16,8,224,32)
    Text = ("Internet 连接共享")
  }
  { TabStrip1 TabStrip
    Move(8,40,400,400)
    Count = 4
    Index = 0
    Text = ("类型1")
    { labqy1 TextLabel
      Move(16,184,368,64)
      Visible = False
      Text = ("正在启用Internet连接共享，请稍候......")
    }
    { TextLabel2 TextLabel
      Move(16,64,176,32)
      Text = ("请选择连接到局域网的网卡")
    }
    { cbowk1 ComboBox
      Move(16,96,368,24)
      Text = (" ")
    }
    { cmdjcwk1 Button
      Move(272,64,112,16)
      Text = ("重新检测网卡")
    }
    { probar1 ProgressBar
      Move(16,248,368,24)
      Visible = False
      Tag = "1000"
    }
    { cmdbegin1 Button
      Move(16,296,112,24)
      Text = ("启用Internet共享")
    }
    { cmdend1 Button
      Move(144,296,112,24)
      Text = ("停止Internet共享")
    }
    { Button5 Button
      Move(272,328,112,24)
      Text = ("关闭")
    }
    { TextLabel9 TextLabel
      Move(16,16,368,40)
      Text = ("如果本机是通过拨号上网，可以在这里设置共享Internet连接。")
    }
    { chk1 CheckBox
      Move(16,136,248,24)
      Text = ("开机时自动启用Internet连接共享连接")
    }
    { cmddel1 Button
      Move(272,296,112,24)
      Text = ("删除Internet共享")
    }
    Index = 1
    Text = ("类型2")
    { thewk TextBox
      Move(56,104,168,16)
      Visible = False
      Text = ("")
    }
    { labqy TextLabel
      Move(16,184,368,56)
      Visible = False
      Text = ("正在启用Internet连接共享，请稍候......")
    }
    { cmdend2 Button
      Move(144,296,112,24)
      Text = ("停止Internet共享")
    }
    { TextLabel3 TextLabel
      Move(16,64,176,32)
      Text = ("请选择连接到局域网的网卡")
    }
    { probar ProgressBar
      Move(16,248,368,24)
      Visible = False
      Tag = "1000"
    }
    { txtoutput TextArea
      Move(16,0,368,64)
      Visible = False
      Text = ("")
      Wrap = True
    }
    { cmdbegin2 Button
      Move(16,296,112,24)
      Text = ("启用Internet共享")
    }
    { Button1 Button
      Move(272,64,112,16)
      Text = ("重新检测网卡")
    }
    { cbowk ComboBox
      Move(16,96,368,24)
      Text = (" ")
    }
    { cmdquit Button
      Move(272,328,112,24)
      Text = ("关闭")
    }
    { TextLabel10 TextLabel
      Move(16,16,368,40)
      Text = ("如果本机是通过静态IP（如：公网固定IP或内网固定IP）上网，可以在这里设置共享Internet连接。")
    }
    { chk2 CheckBox
      Move(16,136,248,24)
      Text = ("开机时自动启用Internet连接共享连接")
    }
    { cmddel2 Button
      Move(272,296,112,24)
      Text = ("删除Internet共享")
    }
    Index = 2
    Text = ("使用说明")
    { TextLabel1 TextLabel
      Move(24,16,352,64)
      Text = ("说明： 先自行配置好系统的网络设置，让本机能正常上网，然后再根据实际情况选择“类型1”或“类型2”来设置共享Internet连接。")
    }
    { TextLabel4 TextLabel
      Move(24,88,360,56)
      Text = ("注意：为了能正常共享Internet连接，设置时会清除原有的Iptables防火墙设置，如果您之前未曾配置过Iptables，可以忽略本行信息。")
    }
    Index = 3
    Text = ("关于......")
    { TextLabel12 TextLabel
      Move(136,280,216,32)
      Text = ("E－Mail：[e-mail]")
    }
    { TextLabel13 TextLabel
      Move(136,248,152,24)
      Text = ("作者：ChenWeiJie")
    }
    { TextLabel14 TextLabel
      Move(104,128,232,48)
      Text = ("本程序为免费软件，可以自由传播。")
    }
    { TextLabel15 TextLabel
      Move(136,96,144,32)
      Text = ("Internet 连接共享 V1.0")
    }
    { PictureBox3 PictureBox
      Move(176,24,48,72)
      Picture = Picture["48.png"]
    }
    { TextLabel16 TextLabel
      Move(136,312,112,16)
      Text = ("2005年7月9日")
    }
    Index = 0
  }
  { PictureBox1 PictureBox
    Move(360,8,48,48)
    Picture = Picture["48.png"]
  }
}