[C#] Мои программы.

Всем привет, я сново начинаю заниматься C#'ом. В этой теме вы можете увидеть мои программы, сорцы и попросить помощи.

Так же могу написать небольшие програмки за небольшую плату.
Если есть предложение пишите в скайп: savakmsrus

Программы:​

savakms Bot [v0.1]

Spoiler

Бот, с которым можно поболтать.
Сам бот готов, осталось заполнить его словарный запас.

Manic Digger [2011-04-28]​

Spoiler

Подробно описал игру ТУТ​

По сути, это клон Minecraft Classic написанный на языке C# неметским программистом exe​

​

​

КРАСНЫЙ - скачать нельзя.​

ЖЁЛТЫЙ - скоро можно будет скачать.​

ЗЕЛЁНЫЙ - можно скачать.​

​

Исходники:​

savakms Bot [v0.1] - Качайте!​

Manic Digger [2011-04-28] - Качайте!​

​

Нажми "Мне нравится" к этому сообщению - помоги людям получить исходники ^_^​

 

Бот пока что ужасно тупой, буду пополнять его словарный запас.

 

Хотя бы описание своих "..." программок сделал.

 

Ок.
Просто из названия "savakms Bot" сразу понятно что это бот.
А про маник я писал в соседней теме.

 

Для чего именно бот?
Увы, я твои прошлые темы не читаю

 

Всё, всё, всё, добавил описание. Твоя душа довольна?

 

UPD: Выложил исходники бота.

 

В исходниках нет исходника dll

 

Ой, извиняюсь, точно. Просто в другом месте он был. Но он есть в папке bot.
/bot/bot/AIMLbot.dll

 

Исходника то все равно нет, а то что эта длл есть не тепло не холодно

 

Тут всё построено за счёт DLL. Исходники есть.
Если вы не можете импортировать DLL в проект, то это ваши проблемы.

 

Исходник нужен для того чтобы посмотреть код а не импортировать его в проет, мне твой бот даром не нужен просто хотел глянуть на что ты способен как програмист

 

Бот основан на DLL, там строк 10.

Я начинающий программист, учусь пока так что строго не суди.

 

Он мало что может сказать о стиле програмирования

 

Ой да ну брось ты, ты будеш загадывать ребус после оптимизации компилятора, ты не увидиш имена переменных.

 

Spoiler

пообщался я с твоим ботом....

 

Code:

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            request.Method = "POST"
            Dim s As String = String.Concat(New String() { "user=", Me.Login.Text, "&password=", Me.Pass.Text, "&version=14" })
            Dim bytes As Byte() = Encoding.UTF8.GetBytes(s)
            request.ContentType = "application/x-www-form-urlencoded"
            request.ContentLength = bytes.Length
            Dim requestStream As Stream = request.GetRequestStream
            requestStream.Write(bytes, 0, bytes.Length)
            requestStream.Close
            Dim response As WebResponse = request.GetResponse
            Console.WriteLine(DirectCast(response, HttpWebResponse).StatusDescription)
            requestStream = response.GetResponseStream
            Dim reader As New StreamReader(requestStream)
            Dim str2 As String = reader.ReadToEnd
            Console.WriteLine(str2)
            reader.Close
            requestStream.Close
            response.Close
            If str2.Contains("bad login") Then
                Me.inlog.Text = ChrW(1053) & ChrW(1077) & ChrW(1074) & ChrW(1077) & ChrW(1088) & ChrW(1085) & ChrW(1099) & ChrW(1081) & " " & ChrW(1083) & ChrW(1086) & ChrW(1075) & ChrW(1080) & ChrW(1085) & " " & ChrW(1080) & ChrW(1083) & ChrW(1080) & " " & ChrW(1087) & ChrW(1072) & ChrW(1088) & ChrW(1086) & ChrW(1083) & ChrW(1100)
            ElseIf str2.Contains("old version") Then
                Me.inlog.Text = ChrW(1054) & ChrW(1073) & ChrW(1085) & ChrW(1086) & ChrW(1074) & ChrW(1080) & ChrW(1090) & ChrW(1077) & " " & ChrW(1083) & ChrW(1072) & ChrW(1091) & ChrW(1085) & ChrW(1095) & ChrW(1077) & ChrW(1088)
            Else
                Me.inlog.Text = ChrW(1042) & ChrW(1099) & " " & ChrW(1091) & ChrW(1089) & ChrW(1087) & ChrW(1077) & ChrW(1096) & ChrW(1085) & ChrW(1086) & " " & ChrW(1074) & ChrW(1086) & ChrW(1096) & ChrW(1083) & ChrW(1080)
                Dim strArray As String() = Strings.Split(str2, ":", -1, CompareMethod.Binary)
                Me.gamever = strArray(0)
                Me.downtick = strArray(1)
                Me.sesid = strArray(3)
            End If
        End Sub

Ну да именно ЭТО я и писал

 

Дайка намекну, я знаю 3 языка и среди них нет visual basic, зато есть вижуал бейсик дот нет, которое компилируется во все тот-же CLI по тем-же правилам что и "язык для домохозяек С#"

 

Visual Basic .NET = Visual Basic.
:fp:
Все Visual языки .NET если ты не знал.