Hack Forums
[.NET] My first coded Program!!! Release - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] My first coded Program!!! Release (/showthread.php?tid=4495947)



My first coded Program!!! Release - qbOFFICIAL - Oct 18, 2014

Hi guys
Today i created my first program in visual studio 2013 and i am letting you all see it.use it.
So i have no clue how to use virus total and it does detect something and i have no clue what it is i was told it was because my program takes control of another process (skype hence the name) so i included the project file so you can check the code and shit.
Here is virus scan: https://www.virustotal.com/en/file/26ed4ddc7bd26f8782016aa9c6d3de4812b9bae7bf83bf97ee9bf17af7cd7eef/analysis/1413654109/
Here is dl: http://www.mediafire.com/download/g76obgn0jb9mub2/Skypebot.rar

Here is the interface BTW Qball is my nickname my friend gave me a while back :)
Interface: [Image: 50HfPvM.png]


CODE: http://pastebin.com/1w25xF7n


* - 1MPERATOR - Oct 18, 2014

Waiting for someone who vouch for this 🤝

And congratulations on your first program OP


* - qbOFFICIAL - Oct 18, 2014

(Oct 18, 2014 10:48 AM)1MPERATOR Wrote:  Waiting for someone who vouch for this 🤝

And congratulations on your first program OP

Thank you Sir hopefully someone does vouch :)


* - +Haze - Oct 18, 2014

Could you just post the source code onto pastebin with vb.net syntax highlighting please. I'm too lazy to download and plus I don't downloadfiles from HF lol.


* - Secret Agent - Oct 18, 2014

This is the first program you coded and you already coded a Skype bot. Sure..


* - LordCoder - Oct 18, 2014

Why do you add a TextBox to write the contact nickname when you can put a ComboBox with "skype.Friends"?


* - qbOFFICIAL - Oct 18, 2014

(Oct 18, 2014 10:52 AM)+Haze Wrote:  Could you just post the source code onto pastebin with vb.net syntax highlighting please. I'm too lazy to download and plus I don't downloadfiles from HF lol.

You no problem i will do that right now


* - +Haze - Oct 18, 2014

(Oct 18, 2014 10:54 AM)Torban Wrote:  This is the first program you coded and you already coded a Skype bot. Sure..

this. my first application was a grade calculator in console application.


* - qbOFFICIAL - Oct 18, 2014

(Oct 18, 2014 10:54 AM)LordCoder Wrote:  Why do you add a TextBox to write the contact nickname when you can put a ComboBox with "skype.Friends"?

I did not know of this, I was actually trying to do this but could not figure it out


(Oct 18, 2014 10:54 AM)Torban Wrote:  This is the first program you coded and you already coded a Skype bot. Sure..

I did not do this on my own i obviously had some help but yes my first program was a skype but. Its only about 10 lines of code :)


* - ElementalTree - Oct 18, 2014

(Oct 18, 2014 10:54 AM)Torban Wrote:  This is the first program you coded and you already coded a Skype bot. Sure..

Yeah skype4comlib is really hard to use, how could he even do that!


You just copied this https://www.youtube.com/watch?v=CRie-jtLJ0w


Here's how you add contacts to a combobox
Code
Public WithEvents Skype As New SKYPE4COMLib.Skype
For i As Integer = 0 To Skype.HardwiredGroups.Count - 1
      If Skype.HardwiredGroups(i + 1).Type = TGroupType.grpOnlineFriends Then
      For j As Integer = Skype.HardwiredGroups(i + 1).Users.Count To 1 Step -1
      ComboBox1.Items.Add(Skype.HardwiredGroups(i + 1).Users(j).Handle)
      Next
      Exit For
      End If
      Next
Hope this helps


* - Nervo - Oct 18, 2014

(Oct 18, 2014 10:59 AM)ElementalTree Wrote:  Here's how you add contacts to a combobox
Code
Public WithEvents Skype As New SKYPE4COMLib.Skype
For i As Integer = 0 To Skype.HardwiredGroups.Count - 1
      If Skype.HardwiredGroups(i + 1).Type = TGroupType.grpOnlineFriends Then
      For j As Integer = Skype.HardwiredGroups(i + 1).Users.Count To 1 Step -1
      ComboBox1.Items.Add(Skype.HardwiredGroups(i + 1).Users(j).Handle)
      Next
      Exit For
      End If
      Next
Hope this helps

Or you can just:
PHP Code

<?php 
Public WithEvents _skype As New SKYPE4COMLib.Skype
For i As Integer = 1 To _skype.Friends.Count
    
If _skype.Friends.Item(i).OnlineStatus <> TOnlineStatus.olsOffline Then
      ComboBox1
.Items.Add(_skype.Friends.Item(i).Handle)
    
End If
Next 
lol.