Лаунчер Theme's Launcher

slid-tomsk · 22 дек 2012

Theme, скинь пожалуйста checksum.exe

greck · 22 дек 2012

Повторяю ранее сказанное, у меня денвер + хостинг, не работает ни там ни там.
Пробовал не изменяя исходников скомпилить и подключится к твоему вебу,
пишет тожесамое (Невозможно инциализировать элементы управления)

Theme · 22 дек 2012

slid-tomsk сказал(а): ↑

Theme, скинь пожалуйста checksum.exe
Нажмите, чтобы раскрыть...

https://dl.dropbox.com/u/52047695/ThisCraft CheckSum.exe

greck · 22 дек 2012

Хотя версия 0.3 и 0.4 работают.

greck · 22 дек 2012

И самое главное не выдаёт ни каких ошибок, хз в какую сторону рыть

Theme · 22 дек 2012

greck сказал(а): ↑

И самое главное не выдаёт ни каких ошибок, хз в какую сторону рыть
Нажмите, чтобы раскрыть...

****ь. Смотри консоль на***! За****и ****ь у****ы кривые.
У меня все работает. У меня 2 компа. Один у меня рабочий (на котором исходники пилю). Второй тоже с вс10, но исходников там отроду не было. Все работает.

greck · 22 дек 2012

какая консоль, где включить? искал не нашёл.
И не надо матерится

Theme · 22 дек 2012

greck сказал(а): ↑

какая консоль, где включить? искал не нашёл.
Нажмите, чтобы раскрыть...

Когда отладка запускается, внизу поищи вкладку "Вывод".

greck · 22 дек 2012

System.NullReferenceException: Ссылка на объект не указывает на экземпляр объекта.
в ThisCraft_Launcher5.RandomSkin.StyleTheme(Control control, String controlName, Boolean useFontBackColorAndText, Boolean upgal) в C:\package\ThisCraft Launcher5\RandomSkin.vb:строка 143

greck · 22 дек 2012

Всё твой Theme.xml нахер бы он ваще нужен.

greck · 22 дек 2012

Вобщем я тебя не пойму, ты специально чтоли кривые исходники скидываеш?

Кому надо рабочий RandomSkin

ALEXZZZ9 · 22 дек 2012

greck сказал(а): ↑

Вобщем я тебя не пойму, ты специально чтоли кривые исходники скидываеш?

Кому надо рабочий код RandomSkin:

Imports System.IO
''' <summary>
''' Панель галереи скинов.
''' </summary>
''' <remarks></remarks>
Friend Class RandomSkin
Inherits ThemePanel
Public Sub New(ByVal parent As PanelManager)
MyBase.New(parent, parent.Form.Size, 0, 0)
End Sub
#Region "Variables"
Private skinShow1, skinShow2 As PictureBox
Private back, fwd, backBtn, search As Button
Private installSkin, addNewSkin, searchLabel As Label
Private searchNum As TextBox
Private filedialog As New OpenFileDialog
Private Client As New System.Net.WebClient()

Dim Bo As Boolean = False
Dim rand As New Random()
Private iLeng, iImage As Integer
Dim BoL As Boolean
Dim Count As Integer
#End Region

#Region "Constructor"
Protected Overrides Sub InitChildrens()
backgroundInit()
skinShow1Init()
skinShow2Init()
backInit()
fwdInit()
goBackInit()
searchInit()
searchNumInit()
searchLabelInit()
installSkinInit()
addNewSkinInit()
End Sub
#Region "InitChildren"
Private Sub backgroundInit()
Pane.BackColor = Color.FromArgb(28, 27, 27)
End Sub
Private Sub searchLabelInit()
searchLabel = New Label
StyleTheme(searchLabel, "searchLabel")
Pane.Controls.Add(searchLabel)
End Sub
Private Sub searchNumInit()
searchNum = New TextBox
StyleTheme(searchNum, "searchNum")
AddHandler searchNum.KeyDown, AddressOf searchEnter
Pane.Controls.Add(searchNum)
End Sub
Private Sub searchInit()
search = New Button
StyleTheme(search, "search")
AddHandler search.Click, AddressOf searchSkin
Pane.Controls.Add(search)
End Sub
Private Sub goBackInit()
backBtn = New Button
StyleTheme(backBtn, "backBtn")

backBtn.UseVisualStyleBackColor = True

AddHandler backBtn.Click, AddressOf backBtnClick

Pane.Controls.Add(backBtn)
End Sub
Private Sub skinShow1Init()
skinShow1 = New PictureBox

StyleTheme(skinShow1, "skinShow1", False)

Pane.Controls.Add(skinShow1)
End Sub
Private Sub skinShow2Init()
skinShow2 = New PictureBox
StyleTheme(skinShow2, "skinShow2", False)
Pane.Controls.Add(skinShow2)
End Sub

Private Sub backInit()
back = New Button
StyleTheme(back, "back")
back.Text = "<<"
back.UseVisualStyleBackColor = True

AddHandler back.Click, AddressOf backs

Pane.Controls.Add(back)
End Sub

Private Sub fwdInit()
fwd = New Button
StyleTheme(fwd, "fwd")
fwd.Text = ">>"
fwd.UseVisualStyleBackColor = True

AddHandler fwd.Click, AddressOf forwd

Pane.Controls.Add(fwd)
End Sub

Private Sub installSkinInit()
installSkin = New Label
installSkin.AutoSize = True
installSkin.Cursor = System.Windows.Forms.Cursors.Hand
StyleTheme(installSkin, "installSkin", True, Settings.useUpGal)

AddHandler installSkin.MouseMove, AddressOf installMouseMove
AddHandler installSkin.MouseLeave, AddressOf installMouseLeave
AddHandler installSkin.Click, AddressOf install

Pane.Controls.Add(installSkin)
End Sub

Private Sub addNewSkinInit()
addNewSkin = New Label
addNewSkin.AutoSize = True
addNewSkin.Cursor = System.Windows.Forms.Cursors.Hand
StyleTheme(addNewSkin, "addNewSkin")

AddHandler addNewSkin.MouseMove, AddressOf addNewMouseMove
AddHandler addNewSkin.MouseLeave, AddressOf addNewMouseLeave
AddHandler addNewSkin.Click, AddressOf LoadToLibary

If Settings.useUpGal Then
Pane.Controls.Add(addNewSkin)
End If
End Sub
#Region "ChildrenFunc"
Private Sub backBtnClick()
Parent.FromRand()
End Sub
Private Sub searchEnter(ByVal sender As Object, ByVal e As KeyEventArgs)
If e.KeyCode = Keys.Enter Then
searchSkin()
End If
End Sub
#Region "Drawing"
Private Sub addNewMouseLeave()
addNewSkin.ForeColor = Color.DeepSkyBlue
End Sub
Private Sub addNewMouseMove()
addNewSkin.ForeColor = Color.Red
End Sub
Private Sub installMouseLeave()
installSkin.ForeColor = Color.DeepSkyBlue
End Sub
Private Sub installMouseMove()
installSkin.ForeColor = Color.Red
End Sub
#End Region
#End Region
#End Region

Private Sub StyleTheme(ByVal control As Control, ByVal controlName As String, Optional ByVal useFontBackColorAndText As Boolean = True, Optional ByVal upgal As Boolean = True) 'инициализация темы
Try
Dim myXml As New System.Xml.XPath.XPathDocument(Settings.updateLink & "theme.xml") 'Settings.updateLink & "theme.xml")
Dim Size As String = ""
Dim Loc As String = ""
Dim BackColor As String = ""
Dim Font As String = ""
Dim ForeColor As String = ""
Dim FontSize As Single
Dim ContName As String = ""
Size = myXml.CreateNavigator.SelectSingleNode("/panel/RandomSkin/Controls/" & controlName & "/@size").Value
Loc = myXml.CreateNavigator.SelectSingleNode("/panel/RandomSkin/Controls/" & controlName & "/@loc").Value

Dim ARGB() As String = {""}
Dim Fore() As String = {""}
Dim PosXY() As String
Dim SizXY() As String

If useFontBackColorAndText Then
BackColor = myXml.CreateNavigator.SelectSingleNode("/panel/RandomSkin/Controls/" & controlName & "/@backcolor").Value
ForeColor = myXml.CreateNavigator.SelectSingleNode("/panel/RandomSkin/Controls/" & controlName & "/@forecolor").Value
Font = myXml.CreateNavigator.SelectSingleNode("/panel/RandomSkin/Controls/@font").Value
FontSize = myXml.CreateNavigator.SelectSingleNode("/panel/RandomSkin/Controls/" & controlName & "/@fontsize").ValueAsDouble
ContName = myXml.CreateNavigator.SelectSingleNode("/panel/RandomSkin/Controls/" & controlName & "/@contname").Value

ARGB = Split(BackColor, ",")
Fore = Split(ForeColor, ",")
End If

PosXY = Split(Loc, ",")
SizXY = Split(Size, ",")

With control
If upgal Then
.Location = New Point(PosXY(0), PosXY(1))
Else
.Location = New Point(PosXY(2), PosXY(1))
End If
.Size = New Size(SizXY(0), SizXY(1))
If useFontBackColorAndText Then
.BackColor = Color.FromArgb(ARGB(0), ARGB(1), ARGB(2), ARGB(3))
.ForeColor = Color.FromArgb(Fore(0), Fore(1), Fore(2), Fore(3))
.Font = New Font(Font, FontSize)
.Text = ContName
End If
End With
Catch ex As Exception
Console.WriteLine(ex.ToString)
MessageBox.Show("Невозможно инциализировать элементы управления!", "Критическая ошибка")
Application.Exit()
End Try
End Sub
#End Region

#Region "Func"
Private Sub forwd()
If iImage = iLeng Then
iImage = 1
Else
iImage = iImage + 1
End If
unpageImage(iImage)
End Sub
Private Sub backs()
If iImage = 1 Then
iImage = iLeng
Else
iImage = iImage - 1
End If
unpageImage(iImage)
End Sub
Private Sub unpageImage(ByVal path As String)
skinShow1.ImageLocation = (Settings.skinLink & Path & "&mode=1")
skinShow2.ImageLocation = (Settings.skinLink & Path & "&mode=2")
End Sub
Private Sub LoadToLibary()
If Not BoL Then
Try
Using myReadFile As New StreamReader("Skins.dat")
Dim str As String = myReadFile.ReadLine()
Count = str
myReadFile.Close()

End Using
Catch ex As IOException
MsgBox(ex.ToString) 'ошибка
End Try
BoL = True
End If

Count = Count + 1
Try
Using myWriterFile As New StreamWriter("Skins.dat")
myWriterFile.WriteLine(Count)
myWriterFile.Close()
End Using
Catch ex As IOException
MsgBox(ex.ToString) 'ошибка
End Try

Client.Headers.Add("Content-Type", "file/text")
Client.Headers.Add("TYPE", "data")
Client.Headers.Add("NAME", "Skins")
Dim result As Byte() = Client.UploadFile(Settings.uploadLink, "Skins.dat")
Dim si As [String] = System.Text.Encoding.UTF8.GetString(result, 0, result.Length)
Client.Headers.Clear()
filedialog.Filter = "Изображение 64x32 (*.png)|*.png"
filedialog.FilterIndex = 1
filedialog.FileName = Nothing
filedialog.RestoreDirectory = True
If filedialog.ShowDialog() = DialogResult.OK Then

Dim fi As New IO.FileInfo(filedialog.FileName)
Dim s As Long = fi.Length
Dim img As New Bitmap(filedialog.FileName)
Dim w As Single = img.PhysicalDimension.Width
Dim h As Single = img.PhysicalDimension.Height
If s < 4500 And w = 64 And h = 32 Then
If File.Exists(Count & ".png") Then File.Delete(Count & ".png")
File.Copy(filedialog.FileName.ToString, Count & ".png")
Client.Headers.Add("Content-Type", "image/png")
Client.Headers.Add("TYPE", "skin")
Client.Headers.Add("NAME", Count.ToString)
Dim results As Byte() = Client.UploadFile(Settings.uploadLink, filedialog.FileName)
Dim sis As [String] = System.Text.Encoding.UTF8.GetString(results, 0, results.Length)
' Client.Dispose()
Client.Headers.Clear()
File.Delete(Count & ".png")
MessageBox.Show("Скин успешно загружен !", "Загрузка скина")
ElseIf s > 4500 And w = 64 And h = 32 Then
MessageBox.Show("Ошибка ! Файл большого размера !", "Загрузка скина")
ElseIf s < 4500 And w <> 64 And h <> 32 Then
MessageBox.Show("Ошибка ! Файл не соответствует пропорциональным размерам !", "Загрузка скина")
Else
MessageBox.Show("Ошибка ! Файл не соответствует параметрам скина !", "Загрузка скина")
End If
End If
End Sub
Private Sub searchSkin()
Dim path As String = If(searchNum.Text = "" OrElse Not IsNumeric(searchNum.Text), "0", searchNum.Text)
If path > iLeng Or path <= 0 Then
MessageBox.Show("Скина под номером " & path & " не существует!", "Ошибка")
Else
iImage = path
unpageImage(path)
End If
End Sub
Private Sub install()
Dim Path As String = iImage
Path = Path & ".png"
If Not File.Exists(Path) Then
Client.DownloadFile(Settings.randomSkin & Path, Path)
End If

Client.Headers.Add("Content-Type", "image/png")
Client.Headers.Add("TYPE", "skin")
Client.Headers.Add("NAME", SettingsInit.Get("username"))
Dim result As Byte() = Client.UploadFile(Settings.uploadLink, Path)
Dim si As [String] = System.Text.Encoding.UTF8.GetString(result, 0, result.Length)
Client.Headers.Clear()

IO.File.Delete(Path)
MessageBox.Show("Скин успешно установлен!", "Установка скина")
End Sub
Private Sub load()
If Not Bo Then
Try
Client.DownloadFile(Settings.randomSkin & "Skins.dat", "Skins.dat")
Using myReadFile As New StreamReader("Skins.dat")
Dim str As String = myReadFile.ReadLine()
iLeng = str
searchNum.Text = iLeng
End Using
Catch ex As Exception
MsgBox(ex.ToString) 'ошибка
End Try
Bo = True
iImage = rand.Next Mod (iLeng - 1)
End If
unpageImage(iImage)
End Sub
#End Region
Public Overrides Sub Show()
MyBase.Show()
load()
End Sub
End Class

Нажмите, чтобы раскрыть...

Про спойлеры не слышал ?

greck · 22 дек 2012

ALEXZZZ9 сказал(а): ↑

Про спойлеры не слышал ?
Нажмите, чтобы раскрыть...

Залил на Rghost

fr3t · 22 дек 2012

после того как залил твой файл влетает такая ошибка (при запуске)

greck · 22 дек 2012

fr3t сказал(а): ↑

после того как залил твой файл влетает такая ошибка (при запуске)
Нажмите, чтобы раскрыть...

А где скрин то?

greck · 22 дек 2012

Вобщем у кого на локальном сервере работает а на хостинге выдаёт (Невозможно инциализировать элементы управления!) Скорее всего придётся искать другой хостинг так как срабатывает защита от дос атак и выдаёт ошибку 503 сервер временно не доступен.

Либо надо избавлятся от Theme.xml так как он создаёт цепочку запросов которые сервер
принимает за дос атаку.

Я насчитал 17 одновременных запросов к серверу

fr3t · 22 дек 2012

так, тока что все работало! почему ошибка? http://gyazo.com/f3f1ac6f145b8b64c343c8f794d30634.png?1356175223

Странно!! опять все заработало! Оо

nicerok · 22 дек 2012

При запуске пишет: У лаунчера нету доступа к серверу. Что делать с этой траблой?

greck · 22 дек 2012

nicerok сказал(а): ↑

При запуске пишет: У лаунчера нету доступа к серверу. Что делать с этой траблой?
Нажмите, чтобы раскрыть...

Main.vb изменял?

nicerok · 22 дек 2012

greck сказал(а): ↑

Main.vb изменял?
Нажмите, чтобы раскрыть...

Да, подчистил значение Me.Text = Settings.launcherName & "".

Войти или зарегистрироваться

Лаунчер Theme's Launcher

slid-tomsk Активный участник Пользователь

greck Активный участник

Theme Старожил Девелопер Пользователь

greck Активный участник

greck Активный участник

Theme Старожил Девелопер Пользователь

greck Активный участник

Theme Старожил Девелопер Пользователь

greck Активный участник

greck Активный участник

greck Активный участник

ALEXZZZ9 Старожил Пользователь

greck Активный участник

fr3t Активный участник

greck Активный участник

greck Активный участник

fr3t Активный участник

nicerok Активный участник Пользователь

greck Активный участник

nicerok Активный участник Пользователь

Поделиться этой страницей

Войти или зарегистрироваться

Лаунчер Theme's Launcher

slid-tomsk Активный участник Пользователь

greck Активный участник

Theme Старожил Девелопер Пользователь

greck Активный участник

greck Активный участник

Theme Старожил Девелопер Пользователь

greck Активный участник

Theme Старожил Девелопер Пользователь

greck Активный участник

greck Активный участник

greck Активный участник

ALEXZZZ9 Старожил Пользователь

greck Активный участник

fr3t Активный участник

greck Активный участник

greck Активный участник

fr3t Активный участник

nicerok Активный участник Пользователь

greck Активный участник

nicerok Активный участник Пользователь

Поделиться этой страницей

Быстрый поиск